Ich stelle jetzt mal einfach so meine Funktion in den Raum
Delphi-Quellcode:
function GetFileSize(const FileName: String; var Size: Int64): Boolean;
var
sr: TWin32FindData;
h: HWND;
begin
h := FindFirstFile(PChar(FileName), sr);
Result := (h <> 0) and (FileExists(FileName)) and (sr.dwFileAttributes and
FILE_ATTRIBUTE_DIRECTORY = 0);
if Result then
Size := (sr.nFileSizeHigh * MAXDWORD) + sr.nFileSizeLow else Size := 0;
Windows.FindClose(h);
end;
mfG
mirage228