Главная страница
    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.025 c
8-1139822476
AlexeyMir
2006-02-13 12:21
2006.08.06
Подскажите как быстро записать CD в wave, как ето делает AudioGra


2-1152808926
Drug1985
2006-07-13 20:42
2006.08.06
Непонятная ошибка. Объясните кто понимает...


2-1153329403
db_noob
2006-07-19 21:16
2006.08.06
БД + дерево


5-1137169356
olegz77
2006-01-13 19:22
2006.08.06
Свойство ImageIndex


2-1153395744
MOUSE911
2006-07-20 15:42
2006.08.06
Таблицы БД





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский