FileSize bei geöffneten Dateien ?

[scp]

Ist evtl. nicht die beste Lösung, aber eine wäre sie:

Delphi-Quellcode:

var
  AFile : file;
  AFileName : String;
  AFileSize : integer;

begin
  fileMode := fmOpenRead;
  AssignFile(AFile, AFileName);
  Reset(AFile, 1);
  AFileSize := filesize(AFile);
  CloseFile(AFile);
end;

[edit]
oder so:

Delphi-Quellcode:

var
  hFile : Integer;
  AFileName : String;
  AFileSize : integer;

begin
  hFile := FileOpen(AFileName, fmOpenRead);
  AFileSize := FileSeek(hFile, 0, 2);
  FileClose(hFile);
end;

[/edit]