Wie kann ich alle CD-ROM-Laufwerke herausfinden und...

[Andreas L.]

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