Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Список дисков [D7, WinXP]


GIMLI ©   (2003-04-16 19:32:00) 

Подскажите как получить список всех дисков компа в Edit1 , через зопятую. Заранее благодарен.


MortalScorpion   (2003-04-16 20:07:00) [1]

делаешь так
for i:=65 to 90 do begin
st:=chr(i)+":\";
if GetDriveType(pchar(st))=drive_fixed then edit1.text:=edit1.text+st;
end;
этот кусочек для физических, если нужен CD-ROM, дисковод и сетевые диски вместо drive_fixed пишешь все диски (там в хелпе есть, просто я не помню)


Наверх

Титульная страница Поиск, карта сайта Написать письмо