Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 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.014 c
15-1152247163
SkyRanger
2006-07-07 08:39
2006.08.06
Можно ли писать на Дельфи по Sony PSP


15-1152203317
Vlad
2006-07-06 20:28
2006.08.06
Интернет-конференция с В.В.Путиным


2-1152857678
NaLom
2006-07-14 10:14
2006.08.06
подскажите округление


3-1149150236
Dust
2006-06-01 12:23
2006.08.06
Абра-кадабра в отчёте, FR, Arial (cp Cyrilic), WinXP Rus


2-1152793626
alsov
2006-07-13 16:27
2006.08.06
set в свойстве object TStringList а





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский