Главная страница
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.014 c
1-94349
Jaxtor
2002-04-15 14:53
2002.04.29
Свойство BorderIcons у формы


4-94622
Great
2002-02-17 09:09
2002.04.29
Окно не становится активно при появлении


3-94290
Logic
2002-04-08 15:50
2002.04.29
Перенос данных из MS SQL в MS Access


1-94497
Ptushenko Denis
2002-04-16 15:33
2002.04.29
Кто знает как проигрывать MP3 ?


1-94431
Винни Пух
2002-04-18 12:40
2002.04.29
Как проверить зарегистрирован ли OCX/DLL файл в реестре ?