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;