| |
 |
Wie kann ich herausfinden welche Laufwerke vorhanden sind?
06-10-2002 18:48
|
|
|
Folgender Code listet die Laufwerke in Form von Laufwerksbuchstaben und Laufwerkstyp auf. Dazu benutzt er die Funktion "GetDriveType", n?heres siehe Win API Dokumantation.
|
procedure TForm1.Button1Click(Sender: TObject);
var
I,Typ: Integer;
s: String;
begin
For i := 0 To 25 do
begin
s := Chr(i + 65) + ':';
typ := GetDriveType(PChar(s));
If Typ <> 0 Then
Case Typ of
DRIVE_REMOVABLE :Listbox1.Items.Add(Chr(i + 65) + ': Diskette');
DRIVE_FIXED : Listbox1.Items.Add(Chr(i + 65) + ': Festplatte');
DRIVE_CDROM : Listbox1.Items.Add(Chr(i + 65) + ': CDROM');
DRIVE_RAMDISK : Listbox1.Items.Add(Chr(i + 65) + ': RAMDisk');
DRIVE_REMOTE : Listbox1.Items.Add(Chr(i + 65) + ': Netzlaufwerk');
end;
end;
end;
|
|
|
|
|
