1:
2:
3:
4:
5:
6:
7:

procedure TForm3.Button3Click(Sender: TObject);
var freeCaller, total: Int64;
begin
  GetDiskFreeSpaceEx('E:\', freeCaller, total, nil);
  label1.caption:='Freier Speicher: '+IntToStr(freeCaller)+' Bytes';
  label2.caption:='Gesamter Speicher: '+IntToStr(total)+' Bytes';
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure ShowMeTheSpace(c: Char);
var Total, Free, dummy: Int64;
    s: string;
begin
  s := c + ':';
  if GetDiskFreeSpaceEx(PChar(s),dummy,Total,@Free) then
    ShowMessage(Format('Gesamt: %.1f GB'#13#10'Frei: %.1f GB',
                       [Total / 1024 / 1024 / 1024,
                        Free / 1024 / 1024 / 1024]))
  else
    ShowMessage(SysErrorMessage(GetLastError));
end;					

1:
2:
3:
4:
5:
6:
7:
8:

procedure TForm3.Button3Click(Sender: TObject);
var freeCaller, total: Int64;
begin
  if (GetDiskFreeSpaceEx('E:\', freeCaller, total, nil)) then
    begin
      { ... }
    end;
end;