Dateigröße ermitteln, während die Datei ausgeführt wird???

[Karl-Heinz]

So gehts ohne Angrabbeln der Datei mit WinAPI:

Delphi-Quellcode:

Function WinFilesize(afile: string): integer;

Var
  tmpW32FD : WIN32_FIND_DATA;
  FindHandle : THandle;
Begin
  FindHandle := FindFirstFile(PCHAR(afile), tmpW32FD);
  If FindHandle <> INVALID_HANDLE_VALUE Then
  Begin
    Result := (tmpW32FD.nFileSizeHigh Shl 32) +
      tmpW32FD.nFileSizeLow;
    FindClose(FindHandle);
  End Else
    Result := 0;
End;

Bis denn,
Karl-Heinz

[edit=Luckie]Wir haben hier Delphi-Tags. Mfg, Luckie[/edit]