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

Вниз

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

← →
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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.028 c