Getfileversion

Getfileversion

Getfileversion : Plusieurs milliers de conseils pour vous faciliter la vie.

Comment obtenir la version de fichier d'un fichier sous forme de chaîne.
fonction de GetFileVersion(const Filename: string var Version: string): Boolean
var
& nbsp & nbsp VerBlk: VS_FIXEDFILEINFO
& nbsp & nbsp InfoSize,puLen : DWord
& nbsp & nbsp Pt,InfoPtr : Pointeur
begin
& nbsp & nbsp Version := '
& nbsp & nbsp InfoSize := GetFileVersionInfoSize(PChar(nom de fichier), puLen)
& nbsp & nbsp FillChar(VerBlk, SizeOf(VS_FIXEDFILEINFO),0)
& nbsp & nbsp si InfoSize > 0, alors
& nbsp & nbsp commencer
& ! & ! & ! & nbsp GetMem(Pt, InfoSize)
& ! & ! & ! & nbsp GetFileVersionInfo(PChar(nom de fichier), 0, InfoSize, Pt)
& ! & ! & ! & nbsp VerQueryValue(Pt, '\', InfoPtr, puLen)
& ! & ! & ! & nbsp deplacer(InfoPtr^, VerBlk, SizeOf(VS_FIXEDFILEINFO))
& ! & ! & ! & nbsp Version := Format ('%d.%d.%d.%d',[VerBlk.dwFileVersionMS shr 16,
& ! & ! & ! & ! & ! & nbsp VerBlk.dwFileVersionMS et 65535,
& ! & ! & ! & ! & ! & nbsp VerBlk.dwFileVersionLS shr 16,
& ! & ! & ! & ! & ! & nbsp VerBlk.dwFileVersionLS et 65535])
& ! & ! & ! & nbsp FreeMem(Pt)
& ! & ! & ! & nbsp Result := True
& nbsp & nbsp fin else
& ! & ! & ! & nbsp Result := False
fin