15 мая 2023 года "Исходники.РУ" отмечают своё 23-летие!
Поздравляем всех причастных и неравнодушных с этим событием!
И огромное спасибо всем, кто был и остаётся с нами все эти годы!

Главная Форум Журнал Wiki DRKB Discuz!ML Помощь проекту


Как программно определить букву CD-ROM


procedure TForm1.Button1Click(Sender: TObject);
var 
w:dword;
Root:string;
i:integer;
begin
w:=GetLogicalDrives;
Root := '#:\';
for i := 0 to 25 do 
begin
Root[1] := Char(Ord('A')+i);
if (W and (1 shl i))>0 then
if GetDriveType(Pchar(Root)) = DRIVE_CDROM then
Form1.Label1.Caption:=Root;
end;
end;