Вниз
Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.44 MB
Время: 0.015 c
1-84381
Maxx
2003-06-09 12:21
2003.06.26
Создание BMP


6-84488
Dinn
2003-04-22 14:49
2003.06.26
Список доступных tnsnames


7-84771
Anonimus
2003-04-17 10:45
2003.06.26
Перезагрузка......


3-84006
abc
2003-05-30 16:05
2003.06.26
как вернуть TQuery в нормальный режим, после режима Edit??


7-84796
Pegas222
2003-04-09 13:49
2003.06.26
TDirectoryListBox, TDriveComboBox




   Наверх