Определить тип диска

ОГЛАВЛЕНИЕ    HOME  MAIL

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;