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

[malo]

Gib mal als Pfad "paramstr(0)" ein. Sollte klappen

//edit: Herzlich willkommen in der DP!

//edit2: Schau dir mal das an

[Binärbaum]

Zitat von 3rdnuss:

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


MfG Felix

Was meinst du mit "eigene Dateigröße"? Die Größe des Delphi-Programmes?
Falls ja, bekommst du den Dateinamen mit Application.ExeName.

MfG
Binärbaum

[malo]

Zitat von Binärbaum:

Zitat von 3rdnuss:

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


MfG Felix

Was meinst du mit "eigene Dateigröße"? Die Größe des Delphi-Programmes?
Falls ja, bekommst du den Dateinamen mit Application.ExeName.

MfG
Binärbaum

Aber nicht den Pfad. Den müsste man noch dazu angeben

[Binärbaum]

Zitat von malo:

Aber nicht den Pfad. Den müsste man noch dazu angeben

"Das glaube ich nicht, Tim."

[felxi]

Ok, danke Das geht ja richtig schnell hier [aus der Sicht eines users des Delphi Forums] (nichts gegen das Delphi Forum^^)


Lg Felix