Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Система";
Текущий архив: 2002.10.24;
Скачать: [xml.tar.bz2];

Вниз

Как определить колличество установленных 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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.55 MB
Время: 0.052 c
1-78428
Chinas
2002-10-14 11:35
2002.10.24
Форма из DLL, как правильно закрыть?


3-78308
dimonf
2002-10-03 16:46
2002.10.24
Почему зависает приложение, после SQL запроса?


1-78432
cult
2002-10-15 17:29
2002.10.24
Как узнать, TrueType шрифт или растровый?


14-78653
Nox
2002-10-04 17:01
2002.10.24
Извините, люди, я, блин, больше не буду!


1-78390
my
2002-10-15 11:25
2002.10.24
как откомпилировать скрипт под linux ?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский