TProgressBar.Max > 4 GB?

[t.roller]

Delphi-Quellcode:

var
  Dr : Integer;
begin 
  Dr:= 3;
  ProgressBar1.Max:= DiskSize(Dr)div 1000;
  ProgressBar1.Position:= (DiskSize(Dr)-DiskFree(Dr))div 1000;
...
// Alternative: ist schöner und praktischer
  Gauge1.Progress:=  (System.SysUtils.DiskFree(Dr)*100) div DiskSize(Dr);
  Application.ProcessMessages;
  Label1.Caption:= INTTOSTR(Gauge1.Progress)+' % free';// auf Gauge1