Wenn die beiden Funktionen aus der Code-Library wie von Stanlay vorgeschlagen verwendet werden, kann mit folgender Prozedur eine Liste der CD-Laufwerke ausgegeben werden.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
begin
for I := 0 to 25 do
if DriveExists(I) and (GetDriveType(PChar(Chr(I + Ord('A')) + ':\')) = DRIVE_CDROM) then
ComboBox1.Items.Add(Chr(I + Ord('A')) + ':\ (' + DriveType(I) + ')');
end;
Die ComboBox muss natürlich existieren
Gruß
s14