Hmm..
Wieso dann nicht gleich Typfixiert?
Delphi-Quellcode:
function GetSize(const fileName: WideString): Int64;
var
info: TWin32FileAttributeData;
begin
if not GetFileAttributesExW(PWideChar(fileName), GetFileExInfoStandard, @info) then
RaiseLastOSError;
Result := Int64(info.nFileSizeLow) or Int64(info.nFileSizeHigh shl 32);
end;
Dies funktioniert unter allen Delphi-Versionen, welche WideChar unterstützen (somit eigentlich fast alle
)
Edit:
Für alle
API-Funktionen verwende ich nur noch die Wide Versionen. Somit gibt es auch keine Probleme..