Форум: "Система";
Текущий архив: 2003.08.25;
Скачать: [xml.tar.bz2];

Вниз

CD-ROM   Найти похожие ветки 

← →
Фагот   (2003-06-09 19:59) [0]

Как определить буковку CD-Rom"а? Помнится, была такая функция?..

---

← →
clickmaker   (2003-06-09 20:01) [1]

GetLogicalDrives или GetLogicalDriveStrings + перебор, пока GetDriveType не вернет DRIVE_CDROM

---

← →
Song   (2003-06-09 23:21) [2]

GetDriveType()

---

← →
Михайлов Антон   (2003-06-10 14:15) [3]

Вот типа этого:

Function CDROM:string;
var
Disk: Char;
Dir: String;
begin
for Disk := "A" to "Z" do
Begin
Dir := Disk + ":\";
if GetDriveType(PChar(Dir))=5 then CDROM:=Dir;
end;
end;

1-Нету
2-Флоппи
3-Раздел Жесткого диска
4-Не уверен, но вроде сетевой диск
5-СД-РОМ

Но нужно учесть что в машине может быть и не один СД-РОМ привод

---

← →
Илайдж   (2003-06-10 14:24) [4]


procedure Button1Click(Sender: Tobject);
var
i: integer;
p: pchar;
begin
for i:=1 to 26 do begin
p := pchar(chr(ord(64+i))+":\");
( p)
procedure Button1Click(Sender: Tobject);
var
i: integer;
p: pchar;
begin
for i:=1 to 26 do begin
p := pchar(chr(ord(64+i))+":\");
if getdrivetype(p) = 5 then memo1.lines.add(p);
end;
end;


В мемо кидается список CD-ROM

---

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

Форум: "Система";
Текущий архив: 2003.08.25;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.009 c