Exception bei AssignFile mit langem Dateipfad

[LTE5]

Zitat von Uwe Raabe:

Wenn es nur um die Größe geht, könnte auch dieser Ansatz erfolgreich sein:

Delphi-Quellcode:

function GetFileSize(const AFileName: string): Int64;
var
  handle: THandle;
begin
  handle := FileCreate(AFileName);
  try
    Result := FileSeek(handle, Int64(0), 2);
  finally
    FileClose(handle);
  end;
end;

OT: dieses FileSize ist etwas schneller und sollte auch mit \\?\ funktionieren.

Delphi-Quellcode:

function GetFileSize(const aFileName: string): Int64;
var
 FileInfo: TWin32FileAttributeData;
begin
 Result := -1;

 FillChar(FileInfo, SizeOf(FileInfo), 0);
 if GetFileAttributesEx(PChar(aFileName), GetFileExInfoStandard, @FileInfo) then
  begin
   Int64Rec(Result).Hi := FileInfo.nFileSizeHigh;
   Int64Rec(Result).Lo := FileInfo.nFileSizeLow;
  end;
end;