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