Главная страница
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.02 c
1-78346
saxon
2002-10-11 15:52
2002.10.24
Clipboard


3-78301
feya
2002-10-03 19:40
2002.10.24
Как добавить данные в таблицу MSAccess


3-78303
JohnBurg
2002-10-02 22:18
2002.10.24
Почему не освобождается база


3-78214
lak_b
2002-10-04 14:49
2002.10.24
:)


1-78511
Dendra
2002-10-13 15:14
2002.10.24
packed record