[Ross]

Я хочу показать, сколько свободного места на диске с помошью ProgressBar. И мне необходим алгоритм вычисления свободного места, если я знаю общий размер диска и количество свободного места на нём. Помогите.

[Ross]

Вот мой алгоритм:

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;

[Ross]

Ну а если сократить, то вот что получается:

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;