Как получить буквы cd-приводов?

← →
Vlad25 (2004-02-22 19:58) [0]

Привет всем! Подскажите, пожалуйста, как получить буквы всех cd-приводов, которые имеются в системе?

← →
Anatoly Podgoretsky © (2004-02-22 20:37) [1]

GetLogicalDriveStrings | GetDriverType

← →
Vlad25 (2004-02-23 10:17) [2]

А как пользоваться этой функцией? Я пишу:
uses.... function GetDriveType(lpRootPathName: PChar): UINT; external "KERNEL32.DLL"; ... procedure TForm1.Button1Click(Sender: TObject); begin if GetDriveType(PChar("A:\"))=DRIVE_REMOVABLE then beep; end;
Тут выскакивает ошибка, что файл project1.exe связан с отсутствующим компонентом в KERNEL32.DLL: GetDriveType (в WinAPI Help написано что функция находится в kernel32.dll)

← →
Anatoly Podgoretsky © (2004-02-23 10:20) [3]

Не надо объявлять - это уже объявлено в модуле windows.pas

← →
Javlon (2004-02-28 08:28) [4]

function GetCDdrives:string;
var
w:longword;
cdstr,Root:string;
i:integer;
begin
cdstr:="";
w:=GetLogicalDrives;
Root:="#:\";
for i:=0 to 30 do
begin
Root[1] := Char(Ord("A")+i);
if (W and (1 shl i))>0 then
if GetDriveType(Pchar(Root)) = DRIVE_CDROM then
begin
cdstr:=cdstr+Root[1];
end;
end;
Result:=cdstr;
end;

Как получить буквы cd-приводов? Найти похожие ветки