2 replies to this topic

[JoAnCa]

Hola a todos

Quisiera obtener los metadatos de un archivo .exe, en especifico el Nombre del Producto y la version.

 

Estoy usando delphi XE7, probé algunas soluciones que encontré:

- Con TFileVersionInfo, pero no funcionan en XE7

- Con: 

...

GetFileVersionInfo(PChar(FileName), 0, InfoSize, VerInfo)

VerQueryValue(VerInfo, '\StringFileInfo\040904B0\ProductName', Pointer(VerValue), VerValueSize)

...

pero no funciona en todos los casos

 

 

Alguien tiene alguna solucion que funcione en todos los casos

[escafandra]

Con la cadena '\StringFileInfo\040904B0\ProductName' asumes que el idioma es inglés de Estados Unidos (040904B0). Por eso no te funciona siempre.

Debes encontrar el código para el idioma de la aplicación que deseas.
 
En el siguiente ejemplo te muestro como hacerlo y obtener el nombre del producto, si está definido.

 

delphi

type
TTranslate = record
  wLanguage: WORD;
  wCodePage: WORD;
end;
PTranslate = ^TTranslate;
 
 
implementation
 
function GetProductName(FileName: String): String;
var
  dwHandle: DWORD;
  Data: Pointer;
  verSize, dataSize: DWORD;
  Translate: PTranslate;
  QueryStr:  String;
  Name: PCHAR;
begin
  dwHandle:= 0;
  dataSize:= GetFileVersionInfoSize(PCHAR(FileName), dwHandle);
  GetMem(Data, dataSize);
  if GetFileVersionInfo(PCHAR(FileName), dwHandle, dataSize, Data) then
  begin
    if VerQueryValue(Data, '\VarFileInfo\Translation', Pointer(Translate), verSize) then
    begin
      if verSize > 0 then
      begin
        QueryStr:= IntToHex(Translate.wLanguage, 4) + IntToHex(Translate.wCodePage, 4);
        QueryStr:= Format('\StringFileInfo\%S\ProductName', [QueryStr]);
        if VerQueryValue(Data, PCHAR(QueryStr), Pointer(Name), verSize) then
          Result:= Name;
      end;
   end;
  end;
  FreeMem(Data);
end;

Saludos.

[JoAnCa]

Muchas gracias por tu respuesta, ya funciona bien en todos los casos