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

Вниз

по ресурсам   Найти похожие ветки 

 
ded_di   (2002-04-16 09:49) [0]

Как получить то, что прописывается в Project->Options->Version Info?


 
drpass ©   (2002-04-16 10:19) [1]

Функция GetFileVersionInfo


 
Толик ©   (2002-04-16 10:26) [2]

Идея заключается в использовании ф-й
GetFileVersionInfoSize,
GetFileVersionInfo,
VerQueryValue

с первыми двумя д.б. всё понятно (см. help), а вот с VerQueryValue есть тонкости:
необходимо узнать значение "\VarFileInfo\Translation" делается это так:

VerQueryValue(VerData, pchar("\VarFileInfo\Translation"), Data, Size), где

VerData := System.GetMemory(Size),
Size - см. GetFileVersionInfoSize,
Data - то, куда возвращаются значения.

VersionTranslation := IntToHex((longword(Data^) shr 16)or(word(Data^) shl 16), 8)

для русского языка значение VersionTranslation = "041904E3"
затем, при выборе остальных значений используем эту строку:

VerQueryValue(VerData, pchar(Format("\StringFileInfo\%s\CompanyName", [VersionTranslation]), Data, Size);
ShowMessage(pchar(Data));



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

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

Наверх




Память: 0.47 MB
Время: 0.015 c
14-94542
Judith
2002-03-22 09:37
2002.04.29
Поздравляю народ с равноденствием.


1-94352
esprit_bel
2002-04-17 10:38
2002.04.29
прога ее модификация


3-94311
CashDi
2002-04-09 10:21
2002.04.29
D6


1-94442
lipskiy
2002-04-05 21:43
2002.04.29
Как описать входной параметр процедуры многовариантно?


7-94593
Андрей Татуков
2002-02-04 16:14
2002.04.29
Язык Windows