IsDriveRemovable

[PeterPanino]

Hallo, ich möchte herausfinden, ob ein bestimmtes Laufwerk ein Wechselmedium ist oder nicht. Darüberhinaus wäre es noch vorteilhaft zu wissen, welche Art von Wechselmedium es ggf. ist, also USB-Stick, oder Diskette, oder ZIP-Laufwerk, oder Wechselfestplatte, oder ... ...

Bisher habe ich folgende Funktion verwendet:

Delphi-Quellcode:

function DriveIsRemovable( Drive: WideString ): Boolean;
var
  DT: Cardinal;
begin
  DT := GetDriveTypeW( PWideChar( Drive ) );
  Result := ( DT <> DRIVE_FIXED );
end;

Etwa mit folgendem Aufruf:

Delphi-Quellcode:

procedure TForm1.btnClick(Sender: TObject);
var
  ThisDrive: string;
begin
  ThisDrive := ExtractFileDrive(APath);
  if DriveIsRemovable(ThisDrive) then
    MessageDlg(ThisDrive + ' IS removable!', mtInformation, [mbOK], 0)
  else
    MessageDlg(ThisDrive + ' is NOT removable!', mtInformation, [mbOK], 0);
end;

Weiß jemand eine bessere Funktion, die womöglich auch den Typ des Wechselmediums zurückliefert?

[mkinzler]

Per WMI

[Dezipaitor]

Die Seite zu GetDriveType
sagt eindeutig: benutze SetupDiGetDeviceRegistryProperty .
Beispiel gibts dort auch.

Das funkz auch unter Windows98