Nur CD/DVD ROM Laufwerke auslesen..

[Matze]

könnte so gehen:

Delphi-Quellcode:

for Drive := 'A' to 'Z' do
  begin
    Str := '';
    case GetDriveType(PChar(Drive + ':\')) of
      0: ;  { do nothing }
      1: ;  { do nothing }
      DRIVE_CDROM:
      begin
        Str := Drive + ':\';
        ListBox1.Items.Add(Str);
      end;
  end;