Nichts, habe bloß nicht dran gedacht.
Delphi-Quellcode:
function GetFileSize(f : PAnsiChar) : Int64;
var FI : TWin32FileAttributeData;
begin
Result := 0;
if GetFileAttributesEx(f, GetFileExInfoStandard, @FI) then
Result := FI.nFileSizeHigh;
end;
Das ergibt bei mir allerdings - genauso wie bei Luckies Funktion - den vorgesetzten Ergebniswert (in dem Fall 0).
Merkwürdiger Weise habe ich immer den Laufwerksbuchstaben "E" als Eingabe-PAnsiChar, es wundert mich, wie das mit der alten Funktion funktionieren konnte.
Nachtrag: Es liegt am AnsiChar, es MUSS WideChar benutzt werden, sonst gibt es Salat....