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

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

как вывести в about номер билда ? [D7, WinXP]

Ugrael ©   (2005-10-03 14:07:00) 

Доброго времени суток.
Глупый вопрос(в FAQ вроде не нашел)
в дельфях в опциях есть возможность вести версию и номер билда. я хочу эту инфу воткнуть в about. как сделать не знаю, а хочется что бы автоматом это обновлялось. при включенном инкременте.

---

bobka   (2005-10-04 09:40:00) [1]

Можно попробовать так:

var FileName,s_: string;
InfoSize, Wnd: DWORD;
VerBuf: Pointer;
FI: PVSFixedFileInfo;
VerSize: DWORD;
.....
begin
s_:= 'Имя программы';
FileName := Application.ExeName;
UniqueString(FileName);
InfoSize := GetFileVersionInfoSize(PChar(FileName), Wnd);
try
 if InfoSize <> 0 then
 begin
  GetMem(VerBuf, InfoSize);
  try
   if GetFileVersionInfo(PChar(FileName), Wnd, InfoSize, VerBuf) then
    if VerQueryValue(VerBuf, '\', Pointer(FI), VerSize) then
     s_:= s_+' v'+IntToStr(FI.dwFileVersionMS div $10000)+'.'+IntToStr(FI.dwFileVersionMS mod $10000)+
      ' (Build '+IntToStr(FI.dwFileVersionLS div $10000)+'.'+IntToStr(FI.dwFileVersionLS mod $10000)+')';
  finally
    FreeMem(VerBuf);
  end; //try
 end;
except on e:exception do;
end; //try

ShellAbout(Self.Handle,PChar(s_),'Copyright © Контора',Application.Icon.Handle);
end;


---

begin...end   (2005-10-03 14:16:00) [2]

GetFileVersionInfoSize + GetFileVersionInfo. См. справку по API.

---

Наверх