Hallo,
die Funktion GetFileSizeEx gibt mir bei großen Dateien über 1 Gb absolut falsche werte zurück, bei einem 6Gb File zeigt es 1gb an, ein 5 Gb File zeigt 300 Mb und ein 4 Gb File zeigt 2 Gb. Kennt jemand das Problem? Betriebssystem hier ist windows vista 32
Delphi-Quellcode:
function GetFileSizeEx(const AFileName: string): Int64;
var
F: TSearchRec;
begin
Result := -1;
if FindFirst(AFileName, faAnyFile, F) = 0 then
begin
try
Result := F.FindData.nFileSizeLow or (F.FindData.nFileSizeHigh shl 32);
finally
SysUtils.FindClose(F);
end;
end;
end;
ist daran etwas falsch?