Текущий архив: 2005.10.30;
Скачать: CL | DM;
Вниз
как вывести в 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;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.057 c
