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

Вниз

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

 
raidan ©   (2004-01-03 00:15) [0]

Потом эту версию написать где-нить в окне "О программе" :)
Сорри, если был уже такой вопрос, но я не нашел :(


 
Eagle Owl ©   (2004-01-03 00:40) [1]

GetFileVersionInfo & VerQueryValue


 
raidan ©   (2004-01-03 00:51) [2]

Да, спасибо :)
Уже нашел :)
Кому еще интересно: http://www.delphikingdom.com/asp/answer.asp?IDAnswer=10744


 
Dimaz-z ©   (2004-01-03 12:33) [3]

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;



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

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

Наверх




Память: 0.47 MB
Время: 0.019 c
3-49459
AVP_opck
2003-12-18 06:50
2004.01.16
как проверить существование таблицы


14-49726
Style
2003-12-22 21:02
2004.01.16
Народ а почему мелкософт не хочет переписать GUI


1-49629
rolex
2004-01-04 18:40
2004.01.16
Как в ListBox1 в каждую строчку записать имена файлов, из папки F


1-49532
~GaMeRd~
2003-12-28 14:37
2004.01.16
Шрифты


6-49678
hawkins
2003-11-16 08:45
2004.01.16
где можно взять заголовочные файлы для Winsock2?