Hvordan komme på størrelse med en veldig stor file.function GetFileSize (konst Filename: string): Int64; Var SizeLow, SizeHigh: DWORD; hFile: THandle; begynne Resultat: = 0; hFile: = Fileopen (Filename, fmOpenRead); prøve hvis hFile < > 0 da begynne SizeLow: = Windows.GetFileSize (hFile,SizeHigh); Resultat: = (SizeHigh SHL 32) + SizeLow; slutt; endelig FileClose (hFile); end, end; Anmeldelser