Главная страница
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.024 c
1-81808
Чайник
2003-08-11 22:19
2003.08.25
Flash и DELPHI


14-81878
McSimm
2003-08-08 10:39
2003.08.25
Объявление! Новый почтовый адрес.


3-81585
prihod
2003-07-30 11:34
2003.08.25
Ошибка при добавлении новой записи...


1-81632
Buffoon
2003-08-12 18:35
2003.08.25
Рисование на Canve


14-81874
ilka
2003-08-08 15:18
2003.08.25
как заархивировать String