| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Наличие CD-ROM ов [D7, Win95/98]
Zew © (2003-05-20 19:15:00)Как узнать какие CD-ROM"ы есть в компе и вывести их в Listbox.
Подскажите пожалуйста.
Oleg_V (2003-05-21 19:59:00) [1]
Примерно так...
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.
Song (2003-05-20 19:22:00) [2]GetDriveType+цикл от A до Z или GetLogicalDriveString
Cobalt (2003-05-20 19:21:00) [3]GetDriveType + F1 (так называемый Help)
| |
