...Guten Morgen alle...
...das hat mir alle keine Ruhe gelassen.
...inzwischen habe ich durch Zufall herausgefunden das mit folgendem Code
Delphi-Quellcode:
function GetFileSize2(const FileName: String): Integer;
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;
das Ergebnis immer gleich ist...(unterschiedliche Dateien/FileName) ! -5.41 MB... obwohl die kpl. Prozedur durchlaufen wird.
Warnung: Rückgabewert der Funktion könnte undefiniert sein... damit hat Delphi Recht !?
[edit]
ich habe mit Set8087ControlWord($133F) den Gleitkommaüberlauf während der Ausführung meines Programmes ausgeschaltet.
...hat das in diesem Zusammenhang eine Relevanz ? ... Suche nach Strohhalm...
[/edit]