Freien Speicherplatz auf einer (Remote-)Festplatte bestimmen

[Sharky]

Hai weisswurst,

ersteinmal: "Herzlich Willkommen in der Delphi-PRAXIS.

Zitat von weisswurst:

....mit 'DiskFree' gehts nicht, da diese Funktion nur mit lokalen Platten arbeitet....

Mit der API-Funktion GetDiskFreeSpaceEx sollte es gehen.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  FreeSpaceAvailable,
  TotalSpace : Int64;
  pfad : String;
begin
  pfad := '\\server\freigabe';
  if GetDiskFreeSpaceEx(PChar(pfad), FreeSpaceAvailable, TotalSpace, nil) then
  begin
    ShowMessage (IntToStr (FreeSpaceAvailable));
  end;
end;