GetDiscFreeSpacEx mit verschiedenen Laufwerksbuchstaben

[jaenicke]

Hier ists zwar auch überhaupt nicht schön geschrieben, funktioniert aber:
http://www.swissdelphicenter.ch/torr...ode.php?id=654

// EDIT:
Und wie wäre es so:

Delphi-Quellcode:

procedure TfrmMain.Button1Click(Sender: TObject);

  function GetFreeSpace(DriveLetter: Char; var TotalSpace: Int64): Int64;
  begin
    GetDiskFreeSpaceEx(PChar(DriveLetter + ':\'), Result, TotalSpace, nil);
  end;

var
  FreeSpace, Total: Int64;
begin
  FreeSpace := GetFreeSpace('c', Total);
  ShowMessage('Freier Speicher: ' + IntToStr(FreeSpace div 1073741824) +' Gibibyte');
  ShowMessage('Gesamter Speicher: ' + IntToStr(Total div 1073741824) + ' Gibibyte');
end;