Dateigröße ermitteln ohne Datei zu öffnen

[robinWie]

Hi,

ich suche die möglichkeit die Dateigröße zu ermitteln ohne die Datei zu öffnen.
In der Suche habe ich nichts gefunden und ich kenne bislang nur diese möglichkeit

Delphi-Quellcode:

var F: File
begin
 Assign(F,FileListBox1.FileName);
 Reset(F);
 Label1.Caption:=IntToStr(FileSize(F));
 ...
end;