Вот мой алгоритм:
procedure TForm1.FormCreate(Sender: TObject);
var FullD,FreeD:real;{Задаю переменные}
begin
FullD:=((disksize(0))/1024)/1024;{Определяю объём диска}
FreeD:=((diskfree(0))/1024)/1024;{Определяю свободное место}
FullD:=Int(FullD);{Выделяю целую часть}
FreeD:=Int(FreeD);
edit1.Text :=floattostr(FullD);{Вывожу на экран результаты}
edit2.Text :=floattostr(FreeD);
progressbar1.Max :=StrToInt(edit1.Text);{Задаю максимальный размер ProgressBar'a}
progressbar1.Position :=StrToInt(edit2.Text); {Указываю свободное место на диске}
end;
|