Текущий архив: 2006.08.06;
Скачать: CL | DM;

Вниз

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

← →
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";
%-)

---

← →
Desdechado ©   (2006-07-17 11:02) [3]

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

---

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

Текущий архив: 2006.08.06;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.031 c