Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.29;
Скачать: [xml.tar.bz2];




Вниз

по ресурсам 


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));




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.29;
Скачать: [xml.tar.bz2];




Наверх







Память: 0.74 MB
Время: 0.022 c
14-94539          kaif                  2002-03-21 00:05  2002.04.29  
Как купить D5 Pro?


4-94621           Schummmi              2002-02-09 08:11  2002.04.29  
Как достать заголовки всех открытых окон Intenet Explorer?


3-94337           agrig                 2002-04-09 21:55  2002.04.29  
Помогите написать запрос с суммированием!


6-94531           knyaz17               2002-02-15 14:06  2002.04.29  
Как можно отобразить список элементов в WebBrowser??


3-94262           Rustik                2002-04-07 11:45  2002.04.29  
Можно ли при формирования репорта заменить Table на Query