D'obtenir la taille d'un fichier volumineux
Comment obtenir la taille d'un très gros fichier.
fonction de GetFileSize(const FileName: string): Int64
var
& nbsp & nbsp SizeLow, SizeHigh: DWord
& nbsp & nbsp hFile: THandle
begin
& nbsp & nbsp Result := 0
& nbsp & nbsp hFile := FileOpen(nom de fichier, fmOpenRead)
& nbsp & nbsp essayer
& ! & ! & ! & nbsp si hFile <> 0 then
& ! & ! & ! & nbsp commencer
& ! & ! & ! & ! & ! & nbsp SizeLow := Windows.GetFileSize(hFile, @SizeHigh)
& ! & ! & ! & ! & ! & nbsp Result := (SizeHigh shl 32) SizeLow
& ! & ! & ! & nbsp fin
& nbsp & nbsp enfin
& ! & ! & ! & nbsp FileClose(hFile)
& nbsp & nbsp fin
fin
D'obtenir la taille d'un fichier volumineux
D'obtenir la taille d'un fichier volumineux : Plusieurs milliers de conseils pour vous faciliter la vie.
Comment obtenir la taille d'un tres gros fichier.
fonction de GetFileSize(const FileName: string): Int64
var
& nbsp & nbsp SizeLow, SizeHigh: DWord
& nbsp & nbsp hFile: THandle
begin
& nbsp & nbsp Result := 0
& nbsp & nbsp hFile := FileOpen(nom de fichier, fmOpenRead)
& nbsp & nbsp essayer
& ! & ! & ! & nbsp si hFile <> 0 then
& ! & ! & ! & nbsp commencer
& ! & ! & ! & ! & ! & nbsp SizeLow := Windows.GetFileSize(hFile, @SizeHigh)
& ! & ! & ! & ! & ! & nbsp Result := (SizeHigh shl 32) SizeLow
& ! & ! & ! & nbsp fin
& nbsp & nbsp enfin
& ! & ! & ! & nbsp FileClose(hFile)
& nbsp & nbsp fin
fin
D'obtenir la taille d'un fichier volumineux
By commentfaire
D'obtenir la taille d'un fichier volumineux : Plusieurs milliers de conseils pour vous faciliter la vie.