Home » Tipps & Tricks » System » Hardware » Kapazität eines Datenträgers ermitteln

Kapazität eines Datenträgers ermitteln

Die Funktion GetDiskFreeSpaceEx benötigt zum Aufruf das Root-Verzeichnis eines Datenträgers. Alle übrigen Parameter sind Ausgabeparameter.

procedure TForm1.Button1Click(Sender: TObject);
var freeCaller, total: Int64;
begin
  GetDiskFreeSpaceEx('C:', freeCaller, total, nil);
  label1.caption:='Freier Speicher: '+IntToStr(freeCaller)+' Bytes';
  label2.caption:='Gesamter Speicher: '+IntToStr(total)+' Bytes';
end;