Форум - Ответы     (  К темам )
 ?  Anry: Определение версии файла программы (07-05-2003 09:32:12)
Как программным способом определить версию файла программы.
 Andrew (07-05-2003 11:09:11)
Если программа твоя, то вначале надо задать версию в Project->Options->Version Info, а после все что там на вписано можно например так:

//На форме стоят куча Label'ов с именами lbl... соответствующими различным параметрам Версии файла

const AnsiString StrGet[10] = {"CompanyName", "FileDescription", "FileVersion",
"InternalName", "LegalCopyright", "LegalTrademarks", "OriginalFilename",
"ProductName", "ProductVersion", "Comments"};

unsigned long h; //
unsigned long Size=GetFileVersionInfoSize(Application->ExeName.c_str(), &h);//
if (Size == 0) return; //
char *buf; //
buf = (char*)GlobalAlloc(GMEM_FIXED, Size);//
if (GetFileVersionInfo(Application->ExeName.c_str(), h, Size, buf) != 0) {//
char *ValueBuf; //
unsigned int Len; //
VerQueryValue(buf, "\\VarFileInfo\\Translation", &(void*)ValueBuf, &Len);
if(Len>=4) { //
AnsiString CharSet = IntToHex((int)MAKELONG(*(int*)(ValueBuf+2), *(int*)ValueBuf), 8);
if(VerQueryValue(buf, AnsiString("\\StringFileInfo\\"+CharSet+"\\ProductName").c_str(), &(void*)ValueBuf, &Len)!=0)
lblProductName->Caption = ValueBuf;
if(VerQueryValue(buf, AnsiString("\\StringFileInfo\\"+CharSet+"\\FileDescription").c_str(), &(void*)ValueBuf, &Len)!=0)
lblFileDescription->Caption = ValueBuf;
if(VerQueryValue(buf, AnsiString("\\StringFileInfo\\"+CharSet+"\\FileVersion").c_str(), &(void*)ValueBuf, &Len)!=0)
lblFileVersion->Caption = "Версия " + (AnsiString) ValueBuf;
if(VerQueryValue(buf, AnsiString("\\StringFileInfo\\"+CharSet+"\\LegalCopyright").c_str(), &(void*)ValueBuf, &Len)!=0)
lblLegalCopyright->Caption = ValueBuf;
if(VerQueryValue(buf, AnsiString("\\StringFileInfo\\"+CharSet+"\\CompanyName").c_str(), &(void*)ValueBuf, &Len)!=0)
lblCompanyName->Caption = ValueBuf;
if(VerQueryValue(buf, AnsiString("\\StringFileInfo\\"+CharSet+"\\Comments").c_str(), &(void*)ValueBuf, &Len)!=0)
lblComments->Caption = ValueBuf;
} //if(Len>=4)
} //if (GetFileVersionInfo(
GlobalFree(buf); //


support@cbuilder.ru