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

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

А можно автоматом писать версию (билд) exe-шника в label ? [D6, D7, WinXP]

Гомункул ©   (2005-08-01 14:50:00) 

А можно автоматом писать версию (билд) exe-шника в label одной из форм - в моем случае форма About?

---

Admido   (2005-08-01 15:03:00) [1]

Полностью согласен с "афвуд (01.08.05 14:55) [3]".

procedure TForm1_main.FileVersionInfo(var Major1, Major2, Minor1, Minor2: Integer);
var
 Info: Pointer;
 InfoSize: DWORD;
 FileInfo: PVSFixedFileInfo;
 FileInfoSize: DWORD;
 Tmp: DWORD;
begin
 // Get the size of the FileVersionInformatioin
 InfoSize := GetFileVersionInfoSize(PChar(Application.ExeName), Tmp);
 // If InfoSize = 0, then the file may not exist, or
 // it may not have file version information in it.

 if InfoSize = 0 then
   raise Exception.Create('Can''t get file version information for '
         + Application.ExeName);

 // Allocate memory for the file version information
 GetMem(Info, InfoSize);
 try
   // Get the informationM
   GetFileVersionInfo(PChar(Application.ExeName), 0, InfoSize, Info);
   // Query the information for the version
   VerQueryValue(Info, '\', Pointer(FileInfo), FileInfoSize);
   // Now fill in the version information}
   Major1 := FileInfo.dwFileVersionMS shr 16;
   Major2 := FileInfo.dwFileVersionMS and $FFFF;
   Minor1 := FileInfo.dwFileVersionLS shr 16;
   Minor2 := FileInfo.dwFileVersionLS and $FFFF;
 finally
   FreeMem(Info, FileInfoSize);
 end;
end;


---

афвуд   (2005-08-01 14:55:00) [2]


String __fastcall TMainForm::GetProgramVersion()
{
       String s="";
       DWORD h;
       DWORD Size=GetFileVersionInfoSize(Application->ExeName.c_str(), &h);
       if(Size==0) goto end;
       char *buf;
       buf=(char*)GlobalAlloc(GMEM_FIXED, Size);
       if(GetFileVersionInfo(Application->ExeName.c_str(),h,Size,buf)!=0)
       {
               char *ValueBuf;
               UINT Len;
                VerQueryValue(buf, "\\VarFileInfo\\Translation", &(void*)ValueBuf, &Len);
                       AnsiString CharSet=IntToHex((int)MAKELONG(*(int*)(ValueBuf+2), *(int*)ValueBuf), 8);

                       if(VerQueryValue(buf,AnsiString("\\StringFileInfo\\"+CharSet+"\\FileVersion").c_str(),&(void*)ValueBuf,&Len)!=0)
                       s=ValueBuf;
       }
       GlobalFree(buf);
       end:
       return s;
}


Код на С++ Builder. Сам переведёшь. А вообще надо поискать самому сначала прежде чем Спрашивать.

---

Гаврила   (2005-08-01 14:53:00) [3]

Можно.
См. GetFileVersionInfo, VerQueryValue

---

Вася Пупкин   (2005-08-01 14:51:00) [4]

Можно

---

Наверх