Проверка OCXксов?!

[LexBondAgent007]

Прив всем! Вот интересный вопрос назрел:

Допустим библиотека VBVM на компьютере есть (ну чтобы exe пахал)... Но вот EXE не будет выполняться, если нету какого то из компонентов..... Теперь вопрос: как можно сделать проверку ОСХ... допустим: если нету компонента msdxm.ocx - то вместо сообщения об ошибки появлялось сообщение вроде: "Windows media player не установлен. Хотите перейти на сайт и скачать его?" Ну и так далее...

p.s. Прошу не советовать пихать все осхсы в инсталлятор - все = все не предусмотришь... Ну и прочие мелочи =)

Выручайте, кодеры! =)

Правка: я так полагаю все это прописывается в sub_main (если это вообще возможно)

[ZORRO]

В событии формы Form_Initialize() проверяешь наличие физически библиотеки, если нет-копируешь и регистрируешь, если есть всё ок наверно

[LexBondAgent007]

как ее проверять то? всмысле код..

[lord0n]

dir ?

[LexBondAgent007]

Эт что получается так надо еще путь прописывать?! А если компонент зарегистрирован в D:\Blah\abc\vio\nu\gro\alpha\com.ocx - на чужом компе - то как я узнаю его путь чтобы проверить??! Нееее... ну а что больше способов нет чтоли?!

[Andrey Fedorov]

Эт что получается так надо еще путь прописывать?! А если компонент зарегистрирован в D:\Blah\abc\vio\nu\gro\alpha\com.ocx - на чужом компе - то как я узнаю его путь чтобы проверить??! Нееее... ну а что больше способов нет чтоли?!

Можно примерно так:

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

If tlb Is Nothing Then Set tlb = CreateObject("TLI.TypeLibInfo")
    tlb.LoadRegTypeLib sGUID, -1, -1, -1
    If Err.Number = 0 Then
        sDFile = tlb.ContainingFile
        bCopy = (sGUID <> tlb.GUID)
        If Not bCopy Then bCopy = Not CompVersions(sVersion, _
            tlb.MinorVersion & "." & tlb.MajorVersion & "." & tlb.LCID, sSFile)
....


[Antonariy]

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

On Error Resume Next
tlb = CreateObject("TLI.TypeLibInfo")
If Err.Number = 0 Then

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

[Andrey Fedorov]

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

On Error Resume Next
tlb = CreateObject("TLI.TypeLibInfo")
If Err.Number = 0 Then

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

Вообще-то ты совсем не понял - это кусок кода, при помощи которого проверяется существование компонента с указанным GUID-ом. Далее я получаю имя его файла и считываю/сравниваю его вресию и пр.

А делается все это с помощью TLBINF32.DLL, объявление которой ты и заметил...

[Antonariy]

Не важно. Если при CreateObject произошла ошибка, этот компонент не зарегистрирован.

[Andrey Fedorov]

Не важно. Если при CreateObject произошла ошибка, этот компонент не зарегистрирован.

Я вообще-то еще и версию проверяю... И обновляю, в случае необходимости...

[LexBondAgent007]

Я ничего не понял.... а примерчик можно плииииииз? У меня например этот код вообще не работает - и какое отношение TLI имеет к компонентам? А если допустим компонентов 3?!