Nur CD/DVD ROM Laufwerke auslesen..

[Knut]

hi..

wie bekomme ich es hin, dass zb in einem memo feld, alle cd-rom laufweke angezeigt werden??

Delphi-Quellcode:

function DriveType(laufwerk: PChar): String;
begin
  case GetDriveType(laufwerk) of
    DRIVE_CDROM: result := 'CD-ROM Laufwerk';
    DRIVE_FIXED: result := 'Festplatte';
    DRIVE_RAMDISK: result := 'Ramdisk';
    DRIVE_REMOTE: result := 'Netzlaufwerk';
    DRIVE_REMOVABLE: result := 'Wechsellaufwerk';
    0: result := 'unbekanntes Laufwerk';
    1: result := 'FALSE';
  end;
end;

das ist der code um herauszufinden von welchem typ ein laufwerk ist. wie kann ich jetzt alle laufwerksbuchstaben testen???
wenn ich eine for schleife benutze, mit 67 (=C) als startwert, muss ich ja noch ':\' an den Char anfügen...
also
laufwerk := CHR(i) + ':\'; das funktioniert aber nicht, weil laufwerk ja jetzt kein Char mehr ist, oder??

gruß
knut