Hi,
wie kann ich alle CD-ROM-Laufwerke herausfinden und diese dann in eine ListBox eintragen ohne auf die Funktion GetDriveType zuzugreifen? Folgenden Code hab ich aber den kann ich in der Lazarus
IDE (benutzt den Freepascal compiler) nicht verwenden, grund: GetDriveTyp ist dort in keiner
Unit verfügbar...
Delphi-Quellcode:
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_CDROM :
Listbox1.Items.Add(Chr(i + 65) + ': CDROM');
end;
end;
end;
Was kann ich da tun?
Greetz und thx