Главная страница
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.019 c
3-78265
sdram
2002-10-02 17:03
2002.10.24
как задать ключевое поле DataSet -у ?


4-78707
Tihas
2002-09-11 07:56
2002.10.24
Несколько вопросов по созданию шрифта CreateFontIndirect...


3-78299
Allo
2002-10-03 15:06
2002.10.24
Ругается Interbase когда создаю FK к заполненной таблице.


6-78571
кондратий
2002-08-23 18:19
2002.10.24
POST ...


14-78602
ToLIk Orshanets
2002-10-02 19:26
2002.10.24
Уроки по базам данных для чайника(ов).