Ich werfe auch noch eine weitere Funktion in den Raum.
Delphi-Quellcode:
function GetFileSizeD(const FileName: string): Int64;
var
FileInfo: TWin32FileAttributeData;
begin
FillChar(FileInfo, SizeOf(FileInfo), 0);
if GetFileAttributesEx(PChar(FileName), GetFileExInfoStandard, @FileInfo) then
begin
Int64Rec(Result).Hi := FileInfo.nFileSizeHigh;
Int64Rec(Result).Lo := FileInfo.nFileSizeLow;
end
else
Result := 0; // -1 wäre ein besserer Wert, da es Dateien gibt die Größe 0 haben
end;