Тема
:
Как показать свободное место на диске
Показать сообщение отдельно
#
3
20.10.2005, 21:53
Ross
Активный
Регистрация: 15.10.2005
Адрес: Казань
Сообщения: 250
Репутация:
30
Ну а если сократить, то вот что получается:
var FullD: Integer;
FreeD: Integer;
FullD:=(Disksize(0)) div 1048576; {Указываю в MB}
FreeD:=(Diskfree(0)) div 1048576; {Указываю в MB}
form1.progressbar1.max:=fulld;
form1.progressbar1.position:=freed;
Ross
Посмотреть профиль
Отправить персональное сообщение для Ross
Отправить Email для Ross
Посетить домашнюю страницу Ross
Найти все сообщения от Ross