FileSize bei geöffneten Dateien ?

[mr2]

Hallo,

versuchs mal so:

Delphi-Quellcode:

function GetFileSize(const FileName: string): Int64;
var
  FileData: TWin32FindData;
  FileHandle: THandle;
  aFileName: string;
begin
  if (AnsiCompareText(FileName, ExtractFileName(FileName)) = 0)
  then aFileName := ExpandFileName(FileName)
  else aFileName := FileName;
  FileHandle := FindFirstFile(PChar(aFileName), FileData);
  if (FileHandle <> INVALID_HANDLE_VALUE) then
  begin
    Result := Int64(FileData.nFileSizeLow)
            + Int64(FileData.nFileSizeHigh) shl (SizeOf(DWORD) * 8);
    FindClose(FileHandle);
  end else Result := -1;
end;

[edit=Daniel B]Delphi-Tags korrigiert. Mfg, Daniel B[/edit]