Определить тип диска
Чтобы определить тип диска можно воспользоваться функцией WinAPI GetDriveType . Эта программа определяет типы всех дисков на Вашем компьютере. procedure TForm1.Button1Click(Sender: TObject);var
i: integer;
LogDrives: set of 0..25;
s: String;
begin
integer(LogDrives) := GetLogicalDrives;
for i := 0 to 25 do
if (i in LogDrives) then begin
s := chr(i + 65) + ':\';
case GetDriveType(PChar(s)) of
1: s := s + ' does not exists';
DRIVE_REMOVABLE: s := s + ' DRIVE_REMOVABLE';
DRIVE_FIXED: s := s + ' DRIVE_FIXED';
DRIVE_REMOTE: s := s + ' DRIVE_REMOTE';
DRIVE_CDROM: s := s + ' DRIVE_CDROM';
DRIVE_RAMDISK: s := s + ' DRIVE_RAMDISK';
else s := s + ' cannot be determined';
end;
ListBox1.Items.Add(s);
end;
end;
