Also mit
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
i : Byte;
LW_Bez : String;
LW_Eig : TCDROMDrive;
begin
for i := 0 to 25 do
if GetLogicalDrives and (1 shl i) <> 0
then
if GetDriveType(PAnsiChar(Chr(i + Ord('A')) + ':\')) = DRIVE_CDROM
then begin
LW_Bez := Chr(i + Ord('A')) + ':';
LW_Eig := TCDROMDrive.Create(LW_Bez);
ComboBox1.Items.Add(LW_Bez + ' ' + LW_Eig.Name);
if ComboBox1.Items.Count > 0
then ComboBox1.ItemIndex := 0;
end;
end;
hab ich zumindest mal die Laufwerksbezeichnung. Der Nutzer Garfield hat sich ebenfalls mit dieser Thematik beschäftigt.
Ein ehemaliger Nutzer von
DP schrieb:
Zitat:
Die moderne Methode ist über
WMI und dessen Klasse Win32_CDROMDrive. Deren Member Capabilities enthält ein Flag, ob das Laufwerk Schreiben unterstützt.
Hat das schonmal jemand probiert?