Cómo obtener la versión de archivo de un archivo como una cadena.
función GetFileVersion(const Filename: string var Versión: string): Boolean
var
& nbsp & nbsp VerBlk: VS_FIXEDFILEINFO
& nbsp & nbsp InfoSize,puLen : DWord
& nbsp & nbsp Pt,InfoPtr : Puntero
begin
& nbsp & nbsp Versión := '
& nbsp & nbsp InfoSize := GetFileVersionInfoSize(PChar(nombre de archivo), puLen)
& nbsp & nbsp FillChar(VerBlk, SizeOf(VS_FIXEDFILEINFO),0)
& nbsp & nbsp si InfoSize > 0, entonces
& nbsp & nbsp empezar
& nbsp & nbsp & nbsp & nbsp GetMem(Pt, InfoSize)
& nbsp & nbsp & nbsp & nbsp GetFileVersionInfo(PChar(nombre de archivo), 0, InfoSize, Pt)
& nbsp & nbsp & nbsp & nbsp VerQueryValue(Pt, '/', InfoPtr, puLen)
& nbsp & nbsp & nbsp & nbsp mover(InfoPtr^, VerBlk, SizeOf(VS_FIXEDFILEINFO))
& nbsp & nbsp & nbsp & nbsp Versión := Format('%d.%d.%d.%d',[VerBlk.dwFileVersionMS shr 16,
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp VerBlk.dwFileVersionMS y 65535,
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp VerBlk.dwFileVersionLS shr 16,
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp VerBlk.dwFileVersionLS y 65535])
& nbsp & nbsp & nbsp & nbsp FreeMem(Pt)
& nbsp & nbsp & nbsp & nbsp Resultado := True
& nbsp & nbsp end else
& nbsp & nbsp & nbsp & nbsp Resultado := False
fin
Getfileversion
Getfileversion : Multi-millones de consejos para hacer su vida mas facil.
Como obtener la version de archivo de un archivo como una cadena.
funcion GetFileVersion(const Filename: string var Version: string): Boolean
var
& nbsp & nbsp VerBlk: VS_FIXEDFILEINFO
& nbsp & nbsp InfoSize,puLen : DWord
& nbsp & nbsp Pt,InfoPtr : Puntero
begin
& nbsp & nbsp Version := '
& nbsp & nbsp InfoSize := GetFileVersionInfoSize(PChar(nombre de archivo), puLen)
& nbsp & nbsp FillChar(VerBlk, SizeOf(VS_FIXEDFILEINFO),0)
& nbsp & nbsp si InfoSize > 0, entonces
& nbsp & nbsp empezar
& nbsp & nbsp & nbsp & nbsp GetMem(Pt, InfoSize)
& nbsp & nbsp & nbsp & nbsp GetFileVersionInfo(PChar(nombre de archivo), 0, InfoSize, Pt)
& nbsp & nbsp & nbsp & nbsp VerQueryValue(Pt, '/', InfoPtr, puLen)
& nbsp & nbsp & nbsp & nbsp mover(InfoPtr^, VerBlk, SizeOf(VS_FIXEDFILEINFO))
& nbsp & nbsp & nbsp & nbsp Version := Format('%d.%d.%d.%d',[VerBlk.dwFileVersionMS shr 16,
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp VerBlk.dwFileVersionMS y 65535,
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp VerBlk.dwFileVersionLS shr 16,
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp VerBlk.dwFileVersionLS y 65535])
& nbsp & nbsp & nbsp & nbsp FreeMem(Pt)
& nbsp & nbsp & nbsp & nbsp Resultado := True
& nbsp & nbsp end else
& nbsp & nbsp & nbsp & nbsp Resultado := False
fin
