VBNet - Форум - Как программно получить версию dll библиотеки?

Вопрос: Как программно получить версию dll библиотеки? Добавлено: 27.01.09 19:16

Автор вопроса: werber | Web-сайт: www.werbersoft.ru

Например, есть библиотека sample.dll с её версией 1.3. Как мне получить эту версию в переменную DllVers? Может какие API надо?
Ответить

Ответы Всего ответов: 8

Номер ответа: 1 Автор ответа: EROS Вопросов: 58 Ответов: 4255	Профиль \| \| #1	Добавлено: 27.01.09 19:38
	да как два пальца об асфальт! string DllVers = Assembly.LoadFile("sample.dll").GetName().Version.ToString(); и только попробуй сказать, что тебе не на .NET надо было! )))))))) Ответить

Номер ответа: 2 Автор ответа: fAndOrIn Вопросов: 5 Ответов: 344	Профиль \| \| #2	Добавлено: 27.01.09 19:40
	Попробуй подключить Library VBIDE.(Примерно здесь - C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6EXT.OLB) В ней все это есть. Ответить

Номер ответа: 3 Автор ответа: fAndOrIn Вопросов: 5 Ответов: 344	Профиль \| \| #3	Добавлено: 27.01.09 19:47
	Если конечно тебе не на .NET надо было! )))))))) Ответить

Номер ответа: 4 Автор ответа: Father Вопросов: 0 Ответов: 159	Профиль \| \| #4	Добавлено: 27.01.09 22:34
	Везет же EROS,у! В одну строчку написал. А нам, графоманам, придется так: Option Explicit Private Declare Function GetFileVersionInfoSize Lib "version.dll" Alias "GetFileVersionInfoSizeA" (ByVal lptstrFilename As String, lpdwHandle As Long) As Long Private Declare Function GetFileVersionInfo Lib "version.dll" Alias "GetFileVersionInfoA" (ByVal lptstrFilename As String, ByVal dwHandle As Long, ByVal dwLen As Long, lpData As Any) As Long Private Declare Function VerQueryValue Lib "version.dll" Alias "VerQueryValueA" (pBlock As Any, ByVal lpSubBlock As String, lplpBuffer As Any, puLen As Long) As Long Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (dest As Any, ByVal Source As Long, ByVal Length As Long) Private Type LANGANDCODEPAGE: wLang As Integer: wCode As Integer: End Type Private Function VBGetFileVersionInfo(sfile As String, verinf As String) As String Dim sz As Long, pmyinf As Long, plang As Long Dim lang As LANGANDCODEPAGE sz = GetFileVersionInfoSize(sfile, 0) If Not CBool(sz) Then Exit Function ReDim buffer(sz) As Byte If Not CBool(GetFileVersionInfo(sfile, 0, sz, buffer(0))) Then Exit Function VerQueryValue buffer(0), "\VarFileInfo\Translation", plang, 0 CopyMemory lang, plang, 4 VerQueryValue buffer(0), "\StringFileInfo\0" & Hex(lang.wLang) & "0" & Hex(lang.wCode) & "\" & verinf, pmyinf, sz If Not CBool(sz) Then Exit Function ReDim myinf(sz) As Byte CopyMemory myinf(0), pmyinf, sz VBGetFileVersionInfo = StrConv(myinf, vbUnicode) End Function Private Sub Form_Load() 'Comments'InternalName'ProductName'CompanyName'LegalCopyright'ProductVersion'FileDescription'LegalTrademarks'FileVersion Debug.Print VBGetFileVersionInfo("msvbvm60.dll", "FileVersion") End Sub З.Ы. Насчет VBIDE я не понял. Ответить

Номер ответа: 5 Автор ответа: fAndOrIn Вопросов: 5 Ответов: 344	Профиль \| \| #5	Добавлено: 27.01.09 22:46
	З.Ы. Насчет VBIDE я не понял. Что именно - как подключить или как пользоватся. Честно говоря, пробовал только в ВБА. Уточните вопрос. Ответить

Номер ответа: 6 Автор ответа: Father Вопросов: 0 Ответов: 159	Профиль \| \| #6	Добавлено: 27.01.09 23:18
	Скажешь тоже, подключить С помощью каких объектов(функций) в VBIDE, расчитываешь получить информацию о версии отдельно взятого файла dll. Который, кстати, может и не быть ActivXDLL. Ответить

Номер ответа: 7 Автор ответа: fAndOrIn Вопросов: 5 Ответов: 344	Профиль \| \| #7	Добавлено: 27.01.09 23:34
	Простите, погорячился. Почему то решил, что речь идет о библиотеке, подключенной к проекту. Ответить

Номер ответа: 8 Автор ответа: werber Вопросов: 71 Ответов: 112	Web-сайт: www.werbersoft.ru Профиль \| \| #8	Добавлено: 29.01.09 11:28
	Спасибо Father. Всё работает! Тема, я думаю, закрыта. Ответить

Страница: 1 |