Форум: "Основная";
Текущий архив: 2005.10.30;
Скачать: [xml.tar.bz2];

Вниз

как вывести в about номер билда ?   Найти похожие ветки 

← →
Ugrael ©   (2005-10-03 14:07) [0]

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

---

← →
begin...end ©   (2005-10-03 14:16) [1]

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

---

← →
bobka ©   (2005-10-04 09:40) [2]

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

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;


---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2005.10.30;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.04 c