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

Вниз

Наличие CD-ROM ов   Найти похожие ветки 

 
Zew   (2003-05-20 19:15) [0]

Как узнать какие CD-ROM"ы есть в компе и вывести их в Listbox.
Подскажите пожалуйста.


 
Cobalt   (2003-05-20 19:21) [1]

GetDriveType + F1 (так называемый Help)


 
Song   (2003-05-20 19:22) [2]

GetDriveType+цикл от A до Z или GetLogicalDriveString


 
Oleg_V   (2003-05-21 19:59) [3]


Примерно так...


var
ld : DWORD;
DiskLetters: String;
I: Integer;
begin

...

DiskLetters := "";
ld := GetLogicalDrives;
for i := 0 to 25 do begin
if ((ld and (1 shl i)) <> 0) and (GetDriveType (PChar (Char(Ord("A") + i)+":\"))=DRIVE_CDROM) then
DiskLetters := DiskLetters + Char(Ord("A") + i);
end;

...



end;


А там уж хоть в строку, хоть в ListBox.



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

Форум: "Система";
Текущий архив: 2003.07.31;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.44 MB
Время: 0.014 c
3-100544
Spawn
2003-07-10 21:39
2003.07.31
Ссылочная целостность


1-100761
ss300
2003-07-16 13:19
2003.07.31
Вопрос по TDate


1-100670
Salvator
2003-07-17 22:38
2003.07.31
Работа с Dll


1-100791
ramdy
2003-07-17 10:17
2003.07.31
stringgrid focused cell


14-100942
Князь Мышкин
2003-07-15 12:13
2003.07.31
Как на Делфи написать свою внеплатформенную операционную систему?





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский