Comment obtenir la taille d'un fichier de plus de 2Go sans ouvrir le fichier ?
Comment obtenir la taille d'un fichier de plus de 2Go sans ouvrir le fichier ?
Ce code permet d'obtenir la taille d'un fichier de plus de 2 Go sans utiliser l'API GetFileSize de Windows qui oblige à ouvrir le fichier.
Code:
1 2 3 4 5 6 7 8 9 10 11
| function SizeOfFile(FileName : String) : Int64 ;
var sr : TSearchRec ;
begin
if FindFirst(FileName, faAnyFile, sr) = 0
then begin
Result := (sr.FindData.nFileSizeHigh shl 32) + sr.FindData.nFileSizeLow ;
FindClose(sr) ;
end
else
Result := 0 ;
end ; |