Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как получить версию программы (version info) для этой же программ


kmc ©   (2002-06-05 18:31:00) 

Как получить версию программы (version info) для этой же программы? То есть программа должна знать свою версию.
Есть какой-нибудь простой способ?


kmc   (2002-06-05 18:40:00) [1]

Спасибо.
А че такое
VerQueryValue(pcBuf,"\\StringFileInfo\\040904E4\\FileVersion", &Value,&LenOfValue))?
Особенно 040904Е4 - откуда это взялось?


Fiend   (2002-06-05 18:36:00) [2]

Правда под билдер (облом переделывать), но думаю разбересси


char* AppName = ParamStr(0).c_str();
unsigned long AppSize;
unsigned long* iAppSize=0;
AppSize = GetFileVersionInfoSize(AppName, iAppSize);
if (AppSize!=0)
{
void* pcBuf = new char[AppSize];
GetFileVersionInfo(AppName,0,AppSize,pcBuf);
LPVOID Value;
UINT LenOfValue;
if (VerQueryValue(pcBuf,"\\StringFileInfo\\040904E4\\FileVersion", &Value,&LenOfValue))
VersionLabel->Caption="


Наверх

Титульная страница Поиск, карта сайта Написать письмо