Конференция VBStreets

**JohnK** » 24.03.2007 (Сб) 12:08

Как вызвать функцию из ActiveX Dll ? Этот код не возвращает адрес
GetDllInfo.

Код: Выделить всё: ret = LoadLibraryA(App.Path & "\Dll\" & plName) If ret > 0 Then ProcAddr = GetProcAddress(ret, "GetDllInfo") If ProcAddr > 0 Then ValidDLL = True Call FreeLibrary(ret) End If

Этот вариант

Код: Выделить всё: Set sdll = CreateObject(".mydll.Data")

не подходит, так как нужно зарегестрировать dll перед связыванием, а мне нужно проверить "моя" ли это dll или нет а потом уже регить.

**GSerg** » 24.03.2007 (Сб) 12:19

JohnK писал(а):Как вызвать функцию из ActiveX Dll ?

http://bbs.vbstreets.ru/viewtopic.php?p=6655394#6655394

JohnK писал(а):а мне нужно проверить

Как будешь проверять?

**JohnK** » 24.03.2007 (Сб) 13:16

Ссылка, к сожалентю, не помогла.
Я не хочу регить все dll подряд, что необходимо при использовании CreateObject. Поэтому чтобы не засорять систему, я хочу проверить это подходящая dll или нет, просто вызвав функцию, например GetDllInfo. Если хотя бы получу ее адрес, уже хорошо. Иначе это не подходящая библиотека.
Надеюсь смысл понятен.

Как я понимаю, с ActiveX это просто не выполнимо...

Какой еще может быть путь решения?