Größe auf dem Datenträger ermitteln.

[Sharky]

Zitat von Luckie:

Ich würde sagen, bis zu nächsten Cluster-Größe aufrunden. Frag mich aber nicht, wie man das macht.

So

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  ClusterSize: Cardinal;
  SectorPerCluster : Cardinal;
  BytesPerSector : Cardinal;
  NumberOfFreeClusters : Cardinal;
  TotalNumberOfClusters: Cardinal;
begin
  GetDiskFreeSpace(PChar('c:\'), SectorPerCluster,BytesPerSector, NumberOfFreeClusters, TotalNumberOfClusters);
  ClusterSize:=SectorPerCluster * BytesPerSector;
  ShowMessage (IntToStr (ClusterSize));
end;