Как программно узнать версию собственной программы

← →
koha © (2006-07-17 06:45) [0]

Хочу что бы программа проверяля собственную версию и получаля ее в переменную string.

← →
Palladin © (2006-07-17 09:34) [1]

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;

← →
Ketmar © (2006-07-17 10:24) [2]

проще.
const versionStr = "0.0.0.1";
%-)

Ketmar © (17.07.06 10:24) [2]
Не шути так.
А то и впрямь кто подумает, что версию лучше хранить в самодельных местах. А если еще и различаться с автоматической будет, то вообще гаплык.
;)

Как программно узнать версию собственной программы Найти похожие ветки