Главная страница
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.019 c
3-81594
sensor-x
2003-07-30 05:01
2003.08.25
CheckListBox & Query


1-81657
xmrz
2003-08-10 23:09
2003.08.25
Frame


3-81575
Yuraz
2003-07-30 14:24
2003.08.25
Как подключить в ADOConnection UDL файл, но чтобы компонент


1-81828
Miralex
2003-08-13 10:32
2003.08.25
Цвет в treeview


3-81545
Алексей Петухов
2003-07-31 05:51
2003.08.25
TQuery и Индексы в dBase