Как при старте проги проверить наличие библиотек-компонентов и т.п. в системе? - VB

Узнай цену своей работы

Формулировка задачи:

Предположим прога использует некоторую подсистему-компонент виндоус.
Если говорить на языке проги
References->Library
В моем случае я использую:
Microsoft Com Service Extended COM Type Library
Соотв. код начинается со строк
и стоит галка в project на эту тему.
Если этого(в системе) нету то прога соотв. ругается матом:
Бла-бла-бла нет такой длл.
Как сделать так, чтобы она все же запустилась и продолжила культурный диалог с юзером?
Вопрос как-бы общий, в vb это сплошь и рядом.

Решение задачи: «Как при старте проги проверить наличие библиотек-компонентов и т.п. в системе?»

textual
Листинг программы
Public Function bla-bla_Initialise(ByRef _hwnd As Long, ByRef err_text As String, ...) As Boolean
...
  hMod = LoadLibrary("bla-bla.dll")
  If hMod = 0 Then
    err_text = "bla-bla.dll not found"
    bla-bla_Initialise = False
    Exit Function
  End If
  
  If (GetProcAddress(hMod, "function1") = 0) Or (GetProcAddress(hMod, "function2") = 0)... ) Then
    err_text = "bla-bla.dll is invalid"
    bla-bla_Initialise = False
    FreeLibrary hMod
    Exit Function
  End If

  FreeLibrary hMod

...
  End If

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

10   голосов , оценка 3.8 из 5
Похожие ответы