Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.08.25;
Скачать: CL | DM;

Вниз

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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.03 c
1-81720
Dmitriy
2003-08-10 23:08
2003.08.25
WM_OPEN_FILE


14-81940
Vlad Oshin
2003-08-07 08:50
2003.08.25
Какой сервис пак тащить?


1-81646
Евгений12
2003-08-09 22:20
2003.08.25
Edit в QReport


1-81631
ZioN
2003-08-12 15:13
2003.08.25
Повторный запуск приложнеия


14-81890
Viktor Kushnir
2003-08-08 09:16
2003.08.25
Internet via e-mail