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

function GetFreeSpace(const Path : String) : Int64;
var
  pPath : array[0..255] of Char;
  Drive : Byte;
begin
  StrPCopy(pPath, UpperCase(Path));
  Drive  := ORD(pPath[0]) - 64;
  if (Drive >= 65) and (Drive <= 91) then begin
    Result := DiskFree(Drive);
  end else begin
    raise Exception.Create('Es wurde kein gültiger Pfad angegeben!');
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

function FreeDiskSpace(const Drive: string; var FreeBytesAvailable,
  TotalNumberOfBytes, TotalNumberOfFreeBytes: TLargeInteger): Boolean;
begin
  result := GetDiskFreeSpaceEx(pointer(Drive), FreeBytesAvailable,
    TotalNumberOfBytes, @TotalNumberOfFreeBytes);
end;


procedure TForm1.Button1Click(Sender: TObject);
var
  FreeAvailable, Total, FreeBytes: TLargeInteger;
begin
  if FreeDiskSpace('c:\Programme', FreeAvailable, Total, FreeBytes) then
    with Listbox1.Items do
    begin
      Add(IntToStr(FreeAvailable));
      Add(IntToStr(Total));
      Add(IntToStr(FreeBytes));
    end
  else
    RaiseLastOSError();
end;