Nur CD/DVD ROM Laufwerke auslesen..

[Christian Seehase]

Moin Matze,

stimmt, kein Ergebnis
Und ich war mir absolut sicher, dass ich dazu schon mal was gepostet hatte.

Na gut, dann jetzt:

Delphi-Quellcode:

var
  sDrives : string;
  iIndex  : integer;

begin
  // 105, da 26 mögliche Laufwerke im Format:
  // Buchstabe:\#00
  // sowie abschliessende #00
  sDrives := StringOfChar(#00,105);
  GetLogicalDriveStrings(105,@sDrives[1]);
  iIndex := 1;
  while sDrives[iIndex] <> #00 do begin
    ShowMessage(copy(sDrives,iIndex,3));
    inc(iIndex,4);
  end;
end;