CD/DVD-Laufwerk prüfen

[hoika]

Hallo,

also mein Code lieferte eine Liste aller CD-DVD-Laufwerke.
Du übergibst der Funktino eine vorher erzeugte StringListe:

Delphi-Quellcode:

var
  SL: TStringList;
  iDrive : Integer;
  sDrive : String;
begin
  SL := TStringList.Create;

  GetDrives(SL);

  // hier geht es weiter mit dem Durchsuchen
  for iDrive := 0 to SL.Count-1 do
  begin
    sDrive := SL[iDrive];
    if FileExists ...
  end;
end;

Heiko