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

Вниз

Как определить колличество установленных CDROM ов и их имена?   Найти похожие ветки 

 
DenKop ©   (2002-08-16 00:55) [0]

Собственно сабж.


 
Poirot ©   (2002-08-16 03:08) [1]

Ну собствунно это делается через GetDriveType (RTFM)
ну и в самом прямом случае пробиваешь по всему латинскому алфавиту, и проверяешь значение функции DRIVE_CDROM...
Впринципе всё...
Но вот их имена... Вы имеете ввиду буковки или имя данное производителем.... второе -см. Великий Сис. Реестр.


 
mumu   (2002-08-16 06:15) [2]

procedure TForm1.Button1Click(Sender: TObject);
var
w:dword;
Root:string;
i:integer;
begin
w:=GetLogicalDrives;
Root := "#:\";
for i := 0 to 25 do
begin
Root[1] := Char(Ord("A")+i);
if (W and (1 shl i))>0 then
if GetDriveType(Pchar(Root)) = DRIVE_CDROM then
Form1.Label1.Caption:=Root;
end;
end;

Взято с http://www.sources.ru/delphi/files/cdrom_letter.shtml
---------------
С уважением, mumu


 
DenKop ©   (2002-08-16 17:30) [3]

Нужно было имя производителя, а оно лежало в великом Сис. Реестре. Спасибо за помощь.


 
France   (2002-08-19 09:40) [4]

Вот функция, которая показывает какие сиди-ромы есть в системе


function CDList : string;
var
Drives, Loop : integer;
Work : string;
begin
Drives:=GetLogicalDrives;
Result:="";
for Loop:=0 to 25 do
if ((1 shl Loop) and Drives)<>0 then
begin
Work:=Char(65+Loop)+":\";
if GetDriveType(PChar(Work))=DRIVE_CDROM then
Result:=Result+Char(65+Loop);
end;
end;

Удачи!



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

Текущий архив: 2002.10.24;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.023 c
7-78676
Dmitriy_K
2002-08-16 08:49
2002.10.24
Работа с системой


1-78454
borg
2002-10-12 13:07
2002.10.24
Получить данные из другой программы(НО это не так просто)


3-78234
brestmarket
2002-09-29 02:02
2002.10.24
Как определить: видна сейчас на экране опред. кол-ка DBGrid?


3-78253
Prooksius
2002-10-02 10:25
2002.10.24
Не работает запрос...


3-78313
Igoryan
2002-10-04 10:25
2002.10.24
Ошибка при работе с SQL Server