...erst einmal Danke,Danke,Danke...
Habe Deinen Tipp wie folgt angepaßt.
Delphi-Quellcode:
function GetFileSize2(const FileName: String): Int64;
var
H: THandle;
D: TWIN32FindDataW;
begin
H := FindFirstFileW(PWideChar(FileName), D);
If H <> INVALID_HANDLE_VALUE then exit; //GetLastError_auswerten;
result := (d.nFileSizeHigh*(MAXDWORD))+d.nFileSizeLow;
CloseHandle(H);
end;
...Datei wird gefunden...aber die Größe stimmt nicht.
