🚀 go-pugleaf

I use this all the time.....I call it the build string

//--------------------------------------------------------

AnsiString BuildString(System::AnsiString Fn) // Fn = Exe Filename
{
    DWORD Handle;
    DWORD Size;
    bool  error = false;
    void *pBuffer;
    AnsiString ret;
    Size = GetFileVersionInfoSize(Fn.c_str(), &Handle);
    if (Size)
    {
      pBuffer = new char [Size];
      if (GetFileVersionInfo(Fn.c_str(),Handle, Size,pBuffer))
      {
        struct TRANSLATION { WORD langID; WORD charset; } translation;
        VS_FIXEDFILEINFO * lpvi;
        UINT iLen;
        int n = VerQueryValue(pBuffer, "\\VarFileInfo\\Translation", 
(void **)&lpvi, &iLen);
        if (n != 0)
        {
          translation = *(TRANSLATION*)lpvi;
          char szName[512];
          wsprintf(szName, "\\StringFileInfo\\%04x%04x\\FileVersion", 
translation.langID, translation.charset);

          unsigned int buflen;
          char *b;
     if (VerQueryValue((LPVOID)pBuffer, szName, (void **)&b,&buflen))
          {
             ret = (AnsiString)  b;
          }
        }
        else error = true;
      }
      else error = true;
      delete[] pBuffer;
    }
    else error = true;
    if (error)  ret = "N/A";
    return ret;
}

//-------------------------------------------------