Migração Unicode - Delphi 2007 Para Delphi Xe5

[Atilio]

Olá pessoal, tenho a função abaixo que retorna a versão do meu software e sempre funcionou direitinho retornando a versão do software no formato N.N.NNN. Porém ao migrar meu software do Delphi 2007 para o Delphi XE5 a função passou a retornar um número estranho, alguém pode me ajudar a descobrir o que está acontecendo ou a corrigir minha função? Já tentei trocar os pChar por pAnsiChar e por pWideChar mas não tive sucesso então deixei a função na forma original que funcionava no Delphi 2007. Segue abaixo a função:

 

function RetornaVersaoProjeto : string;

var

  dwInfoSize, dwVerSize, dwWnd : DWORD;

  FI : PVSFixedFileInfo;

  ptrVerBuf : Pointer;

  strFileName, strVersion : string;

const

  NOVIDATA = '';

begin

  Result := '';

 

  strFileName := paramStr( 0 );

  dwInfoSize := getFileVersionInfoSize( pChar( strFileName ), dwWnd);

 

  if ( dwInfoSize = 0 ) then

  begin

    Result := NOVIDATA

  end

  else

  begin

    getMem( ptrVerBuf, dwInfoSize );

    try

      if getFileVersionInfo( pChar( strFileName ), dwWnd, dwInfoSize, ptrVerBuf ) then

        if verQueryValue( ptrVerBuf, '\', pointer(FI), dwVerSize ) then

          strVersion := format( '%d.%d.%d',

                        [ hiWord( FI.dwFileVersionMS ),

                        loWord( FI.dwFileVersionMS ),

                        loWord( FI.dwFileVersionLS ) ] );

    finally

      freeMem( ptrVerBuf );

    end;

  end;

 

  Result := strVersion;

 

end;

 

 

 

[Régys Silveira]

Aqui funcionou normalmente, mas eu aconselharia a trocar os pChar por pWideChar em: getFileVersionInfoSize e getFileVersionInfo.

[EMBarbosa]

Algumas sugestões, veja:

https://stackoverflow.com/questions/1717844/how-to-determine-delphi-application-version

 

ou

http://docwiki.embarcadero.com/RADStudio/XE5/en/Version_Info

[Atilio]

Burrice minha, já achei o erro, ao migrar o Delphi bagunçou a forma de gerar a versão do projeto, estava para gerar um número aleatório