, hvordan at komme på størrelse med en meget stor fil.,, funktion getfilesize (denne filnavn: string): int64;,, var, sizelow, sizehigh: dword;,, hfile: thandle;,, begynder, resultat: = 0, hfile: = fileopen (filnavn, fmopenread);,,,,, hvis hfile < > 0, begynder, sizelow: = vinduer. getfilesize (hfile, @ sizehigh);,, resultat: = (sizehigh sømhaj shb 32) + sizelow,,,,,,, fileclose endelig (hfile);,,,,,,,,,,