1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:

procedure List_CDROM_Drives;
const
  DRIVE_UNKNOWN = 0;
  DRIVE_NO_ROOT_DIR = 1;
  DRIVE_REMOVABLE = 2;
  DRIVE_FIXED = 3;
  DRIVE_REMOTE = 4;
  DRIVE_CDROM = 5;
  DRIVE_RAMDISK = 6;
var
  r: LongWord;
  Drives: array[0..128] of char;
  pDrive: PChar;
begin
  Form1.DriveComboBox1.Items.clear;  // Form evtl. anpassen
  r := GetLogicalDriveStrings(SizeOf(Drives), Drives);
  if r = 0 then Exit;
  if r > SizeOf(Drives) then
    raise Exception.Create(SysErrorMessage(ERROR_OUTOFMEMORY));
  pDrive := Drives;
  while pDrive^ <> #0 do
  begin
    if GetDriveType(pDrive) = DRIVE_CDROM then
       Form1.DriveComboBox1.Items.Add(pDrive); // Form evtl. anpassen
    Inc(pDrive, 4);
  end;
  Form1.DriveComboBox1.ItemIndex := 0; // Form evtl. anpassen
  Form1.DriveComboBox1.Items.AddObject('vsIcon', TObject(vsIcon)); // Form evtl. anpassen
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

function GetCD_Drive: String;
var
  Dr : DWORD  ;
  I  : Integer;
  Cd : String ;

begin
  Result := ''              ;
  Dr     := GetLogicalDrives;
  I      := 0               ;
  While (Result = '') and (I < 27) do
  begin
    if Dr and $0001 > 0 then
    begin
      Cd := Chr( 65 + I ) + ':\';
      if GetDriveType( PChar( Cd ) ) = DRIVE_CDROM then Result := Cd;
    end;
    Dr := Dr shr 1;
    I  := I + 1   ;
  end;
end;