Как проверить зарегистрирована библиотека в системе или нет?

[Ruslan Demidow]

Моя прожка для создания письма использует Бат или Оутлук по выбору. Для того, чтобы создать сообщение в Outlook я использую библиотеку msoutl.olb из поставки MS Office XP. Но чтобы программа не вылетала при обращении к несуществующей библиотеке - как мне определить - зарегистрирована она в системе или нет?
Ведь кидать библиотеку в каталог программы совсем не хочется.

[codemaster]

Но чтобы программа не вылетала при обращении к несуществующей библиотеке - как мне определить - зарегистрирована она в системе или нет?
Ведь кидать библиотеку в каталог программы совсем не хочется.

Обработай ошибку.

[Ruslan Demidow]

Но чтобы программа не вылетала при обращении к несуществующей библиотеке - как мне определить - зарегистрирована она в системе или нет?
Ведь кидать библиотеку в каталог программы совсем не хочется.

Обработай ошибку.

Да обработать ошибку не проблема.
Вопрос немного в другом (я может быть не так сформулировал его):
Эта библиотека регистрируется офисом в реестре Root\typeLib\{00062FFF-0000-0000-C000-000000000046} и т.д.
Меня интересует вопрос - библиотека может зарегистрирована быть по другому пути? Если да, то найдёт ли её моя прога при обращении к ней из кода?

[codemaster]

Это COM Dll насколько я понимаю
Причем тут поиск где она расположена?

Ошибка создания объекта - ответ на твой вопрос можно работать с почтой или нет.

[Ruslan Demidow]

Это COM Dll насколько я понимаю
Причем тут поиск где она расположена?

Ошибка создания объекта - ответ на твой вопрос можно работать с почтой или нет.

Ок. Спасибо за ответ.

[alibek]

Человек не хочет тупо выполнять какое-то действие и проверять - удалось/не удалось. Он хочет вначале узнать, имеет ли смысл вообще делать это действие.

По теме. GUID всегда будет одинаковый, на любой машине. Но проверять в реестре не самый лучший способ.
Попробуй что-то вроде этого:

Код: Выделить всё

Private Declare Function FreeLibrary Lib "kernel32" (ByVal hLibModule As Long) As Long
Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long
Private Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, ByVal lpProcName As String) As Long
...
bSuccess = False
L = LoadLibrary("comdlg32")
If L <> 0 Then
  If GetProcAddress(L, "DllRegisterServer") <> 0 Then bSuccess = True
End If
FreeLibrary L
Debug.Print bSuccess


Смысл в том, что любой саморегистрирующийся COM-объект обязательно имеет процедуру DllRegisterServer. Если не удается найти адрес этой процедуры (или вообще, загрузить библиотеку), то скорее всего msoutl.olb не зарегистрирован в системе и не находится в Path.

Но вообще-то это коряво, наверняка есть более прямой способ.

[Ruslan Demidow]

Человек не хочет тупо выполнять какое-то действие и проверять - удалось/не удалось. Он хочет вначале узнать, имеет ли смысл вообще делать это действие.

Вообще-то да, я это и хотел. Но хотел ещё убедиться, что независимо от того в какую папку пользователь не поставит офис - библиотека моей программой будет использоваться без проблем.

По теме. GUID всегда будет одинаковый, на любой машине.

Вот. Вот что мне нужно было узнать.

Но проверять в реестре не самый лучший способ.
Попробуй что-то вроде этого:

Код: Выделить всё

Private Declare Function FreeLibrary Lib "kernel32" (ByVal hLibModule As Long) As Long
Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long
Private Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, ByVal lpProcName As String) As Long
...
bSuccess = False
L = LoadLibrary("comdlg32")
If L <> 0 Then
  If GetProcAddress(L, "DllRegisterServer") <> 0 Then bSuccess = True
End If
FreeLibrary L
Debug.Print bSuccess


Смысл в том, что любой саморегистрирующийся COM-объект обязательно имеет процедуру DllRegisterServer. Если не удается найти адрес этой процедуры (или вообще, загрузить библиотеку), то скорее всего msoutl.olb не зарегистрирован в системе и не находится в Path.

Но вообще-то это коряво, наверняка есть более прямой способ.

Думаю что есть. Но то что ты предложил, для меня на данный момент (пока я начинающий) громоздко и немного непонятно.

[GSerg]

Думаю, что сей способ неверен
LoadLibrary не является COM-функцией и имеет внутренний порядок поиска указанной библиотеки:

1. Стартовый каталог приложения
2. Текущий каталог приложения
3. windows\system
4. windows
5. пути из переменной PATH

Таким образом, если искомая библа физически есть по одному из указанных мест, то мы сделаем вывод, что она зарегистрирована, в то время как она может и не быть зарегистрирована.

Так что наверное всё же нужно использовать позднее связывание в этом случае

[Ruslan Demidow]

Думаю, что сей способ неверен
LoadLibrary не является COM-функцией и имеет внутренний порядок
=-=- skip =-=-=-=
Так что наверное всё же нужно использовать позднее связывание в этом случае

Я сделал по первому совету: при начале работы программы пробую создать объект - если ошибка - значит библиотека не зарегистрирована.