Sorry, aber ich hab da eine Kleinigkeit entdeckt.
Delphi-Quellcode:
function GetFileSize(szFile: String): Cardinal;
var
fFile: THandle;
wfd: TWIN32FINDDATA;
begin
result := 0;
if not FileExists(szFile) then exit;
fFile := FindFirstfile(pchar(szFile),wfd);
if fFile = INVALID_HANDLE_VALUE then exit;
result := (wfd.nFileSizeHigh*(MAXDWORD))+wfd.nFileSizeLow;
windows.FindClose(fFile);
end;
Hier sind evt. zwei Fehler drin. Das gilt auch für die modifizierte Version hier:
http://www.delphipraxis.net/24331-da...ermitteln.html
Der erste Punkt ist, dass hier anscheinend besonders große Werte nicht richtig zurück gegeben werden. Meine eigene Funktion hatte übrigens auch den gleichen Größe-Fehler, deshalb begab ich mich auf die Suche. Ich hab eine etwa 6,8 GB Datei geprüft und bekam in beiden Fällen etwa 2,5 GB zurück. Vielleicht gab es 2004 noch nicht so große Dateien um es zu testen.
Das Problem könnte evtl. das Problem lösen:
Delphi-Quellcode:
function GetFileSize4(szFile: String): Int64;
..
begin
..
result := (Int64(wfd.nFileSizeHigh)*(MAXDWORD))+Int64(wfd.nFileSizeLow);
Der zweite Punkt ist evtl. das hier: (MAXDWORD). Laut MS sollte es (MAXDWORD+1) sein. Aber die +1 verkraftet Delphi nicht. Der Fehler ist aber nur paar Byte.
//Edit:
Ich sehe gerade, dass in meinem alten
API Buch auch nur (MAXDWORD) steht. Der Fehler liegt also eher da.