Eigene Dateigröße festestellen

[felxi]

Hallo, die Dateigröße habe ich mit

Delphi-Quellcode:

var
  sr : TSearchRec;
begin
  if FindFirst('c:\test123.exe', faAnyFile, sr) = 0 then
  begin
   if sr.Size div 1024 > 100 then showmessage ('Die Datei ist größer als 100 kb')
  end;
  FindClose(sr);

u.s.w. ermittelt

Ok, das ist nicht das Problem.
Ich würde jetzt gerne die eigene Dateigröße herausfinden.
Dabei soll das auch funktionieren, selbst wenn die Datei umbenannt wird.


MfG Felix