Kapazität eines Datenträgers ermitteln |
|
| System | Win9x, WinNT, Win2000, WinXP, Vista, Win7 |
|---|---|
| Ab Delphi-Version | Delphi 1 |
| Letzte Änderung | 28.09.2010 |
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;