Как при старте проги проверить наличие библиотек-компонентов и т.п. в системе? - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д