Zitat von
Muetze1:
Funktioniert afaik aber nicht auf Netzwerklaufwerken.
Bei mir geht's damit:
Delphi-Quellcode:
procedure TForm1.Button4Click(Sender: TObject);
var FreeAvailable, TotalSpace, TotalFree: TLargeinteger;
begin // Get the free drive space
GetDiskFreeSpaceEx('Z:\', FreeAvailable, TotalSpace, @TotalFree);
ShowMessage('Drive Z has ' + IntToStr(FreeAvailable div 1024) +
'Kb of free space');
end;