Dateigröße abfragen

[bttb930]

Delphi-Quellcode:

var
vorher, nachher: Integer;
...
vorher := GetFileSizeA(Edit1.Text);
nachher := vorher div 1024;
Label1.Caption := IntToStr(nachher);