| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как программно узнать версию собственной программы
koha © (2006-07-17 06:45:00)Хочу что бы программа проверяля собственную версию и получаля ее в переменную string.
Desdechado (2006-07-17 11:02:00) [1]Ketmar © (17.07.06 10:24) [2]
Не шути так.
А то и впрямь кто подумает, что версию лучше хранить в самодельных местах. А если еще и различаться с автоматической будет, то вообще гаплык.
;)
Ketmar (2006-07-17 10:24:00) [2]проще.
const versionStr = '0.0.0.1';
%-)
Palladin (2006-07-17 09:34:00) [3]
Var
buf:Pointer;
nSize:Integer;
vi:^vs_fixedfileinfo;
p:pointer absolute vi;
l:cardinal;
l1,l2:cardinal;
vs1:array [1..2] of word absolute l1;
vs2:array [1..2] of word absolute l2;
strVersion:String;
Begin
nSize:=GetFileVersionInfoSize(PChar(Application.ExeName),l);
GetMem(buf,nSize);
GetFileVersionInfo(PChar(Application.ExeName),l,nSize,Buf);
VerQueryValue(Buf,'\',p,l);
l1:=vi.dwFileVersionMS;
l2:=vi.dwFileVersionLS;
strVersion:=IntToStr(vs1[2])+'.'+IntToStr(vs1[1])+'.'+IntToStr(vs2[2])+'.'+IntToStr(vs2[1])
FreeMem(buf);
End;
| |
