Текущий архив: 2003.06.26;
Скачать: CL | DM;

Вниз

Список дисков   Найти похожие ветки 

← →
GIMLI ©   (2003-04-16 19:32) [0]

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

---

← →
MortalScorpion   (2003-04-16 20:07) [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 пишешь все диски (там в хелпе есть, просто я не помню)

---

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

Текущий архив: 2003.06.26;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.04 c