Скачать: CL | DM;

Как получить буквы 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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.021 c