| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

CD-ROM

Фагот ©   (2003-06-09 19:59:00) 

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

---

Илайдж   (2003-06-10 14:24:00) [1]


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

---

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

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

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-СД-РОМ

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

---

Song   (2003-06-09 23:21:00) [3]

GetDriveType()

---

clickmaker   (2003-06-09 20:01:00) [4]

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

---

Наверх