Форум: "Начинающим";
Текущий архив: 2006.08.06;
Скачать: [xml.tar.bz2];
Вниз
Как программно узнать версию собственной программы Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.025 c
