Проверить програмно не слетела ли регистрация OCX и зарегать

[Pantalone]

Распространяю софтинку одну активно, в ней есть пачка ОСХ, дистриб собираю через InnoSetup. Время от времени народ присылает баг репорты из которых я понимаю что одна из ОСХ вдруг почему-то казывается незареганной. Так и не удалось мне понять почему, то ли Inno косячит и не всегда как следует регистрирует, то ли глючные компы какие-то. Хотелось бы при старте проги проверить регистрацию ОСХ и если ее нету то зарегать.
Подскажите примерчик если кто исследовал эту тему.

[Bov]

Возможно у народа у которых не регаеться осх - ос Vista. Инносетап хороший инсталятр - косячить не должен.

[Pantalone]

Не, бывает и виста и хрюша.

Вот так вызываю регистрицию в инно, что может быть не так?

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

Source: "Y:\DLLS\MSWINSCK.OCX"; DestDir: "{sys}"; Flags: restartreplace sharedfile regserver uninsnosharedfileprompt

[Бяка]

регистрация/унрегистрация DLLOCX

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

Option Explicit

Public Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, ByVal lpProcName As String) As Long
Public Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Public Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long
Public Declare Function FreeLibrary Lib "kernel32" (ByVal hLibModule As Long) As Long

Public Function DLLOCX(ByVal hWnd As Long, ByVal Path As String, ByVal Register As Boolean) As Boolean

    On Error Resume Next
   
    Dim LB As Long, PA As Long
    LB = LoadLibrary(Path)
    If LB = 0 Then Exit Function
 
    If Register = True Then
     PA = GetProcAddress(LB, "DllRegisterServer")
    Else
     PA = GetProcAddress(LB, "DllUnregisterServer")
    End If
   
    If PA = 0 Then GoTo 0
    Call CallWindowProc(PA, hWnd, ByVal 0&, ByVal 0&, ByVal 0&)
    DLLOCX = True
0
    Call FreeLibrary(LB)

End Function