Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.11.27;
Скачать: CL | DM;

Вниз

Вопрос про версию программы и дату создания билда   Найти похожие ветки 

 
azazello   (2003-11-16 10:09) [0]

Допустим пользователь открыл окно "О программе",
а там отображено номер версии программы и
дата создания программы. Как это можно реализовать
на Delphi.


 
Dimaz-z ©   (2003-11-16 11:50) [1]

function Tfrm_main.get_version(filename: string): string;
var
VISize: cardinal;
VIBuff: pointer;
trans: pointer;
buffsize: cardinal;
temp: integer;
str: pchar;
LangCharSet: string;
LanguageInfo: string;

function GetStringValue(const From: string): string;
begin
VerQueryValue(VIBuff, pchar("\StringFileInfo\"+LanguageInfo+"\"+From), pointer(str),
buffsize);
if buffsize > 0 then
Result := str
else Result := "n/a";
end;

begin
VIBuff := nil;
VISize := GetFileVersionInfoSize(pchar(Filename), buffsize);
VIBuff := AllocMem(VISize );
GetFileVersionInfo(pchar(Filename), cardinal(0), VISize, VIBuff);
VerQueryValue(VIBuff, "\VarFileInfo\Translation", Trans, buffsize);
temp:=0;
StrLCopy(@temp, pchar(Trans), 2);
LangCharSet:=IntToHex(temp, 4);
StrLCopy(@temp, pchar(Trans)+2, 2);
LanguageInfo := LangCharSet+IntToHex(temp, 4);
Result := GetStringValue("FileVersion");
end;


 
Anatoly Podgoretsky ©   (2003-11-16 17:25) [2]

Label.Caption := "Версия и дата"



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

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

Наверх




Память: 0.47 MB
Время: 0.082 c
8-90010
JohnJ
2003-07-30 01:17
2003.11.27
Небольшой и, должно быть, лёгкий вопросик по DelphiX


1-89881
avkar
2003-11-15 18:59
2003.11.27
Форма в DLL


3-89783
Chel
2003-11-10 17:41
2003.11.27
NCOCI


3-89691
Denisiy
2003-11-06 12:11
2003.11.27
Ошибка после прерывания проги в отладке


1-89819
Prof
2003-11-18 10:49
2003.11.27
Глючный таймер.