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. :coder2:


MfG Felix

[malo]

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

//edit: Herzlich willkommen in der DP! :party:

//edit2: Schau dir mal das an ;)

[Binärbaum]

Zitat:

Zitat von 3rdnuss

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


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:

Zitat von Binärbaum

Zitat:

Zitat von 3rdnuss

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


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:

Zitat von malo

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

"Das glaube ich nicht, Tim." :lol:

[felxi]

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


Lg Felix