Run Time error '429'

am si eu o problema am facut un soft in visual basic 6 lam compilat la mine merge dar la alte pc da aceasta eroare , am atasat imaginea mai jos va  rog o idee ceva

In Visual Studio 6 Tool  din Start-Programs gasesti Package & Deployment Wizard, genereaza de acolo pachetul de distributie si il folosesti pentru instalarea pe alt pc.

Folosesti un Activex(.ocx ) care nu e inregistrat in sistemul in care ruleaza

Foloseste REGSVR32 pentru a inregistra toate ocx-urile de care depinde exe-ul tau.

Sau creaza functie si apeleaza din sub main care sa le inregistreze automat(inainte de a arata controalele.

Ex:


Private Declare Function FreeLibrary Lib "kernel32" (ByVal hLibModule As Long) As Long
Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long
Private Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, ByVal lpProcName As String) As Long
Private Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Any, ByVal wParam As Any, ByVal lParam As Any) As Long
Private Const ERROR_SUCCESS = &H0

Public Function Reg_OCX(hWnd As Long, Caleocx As String, bRegister As Boolean) as boolean
    On Error Resume Next


    Dim lb As Long, reg As Long
    lb = LoadLibrary(Caleocx )

     If bRegister Then
         reg = GetProcAddress(lb, "DllRegisterServer")  'dc bRegister este TRUE inregistreaza
     Else
           reg = GetProcAddress(lb, "DllUnregisterServer") 'dc FALSE  le 'dezinstaleaza'
     End If

    If CallWindowProc(reg, hWnd, ByVal 0&, ByVal 0&, ByVal 0&) = ERROR_SUCCESS Then
        Reg_OCX=true  'dc intoarce eroarea ERROR_SUCCES INTOARCE REUSITA
   Else
        Reg_OCX=false
    End If

    FreeLibrary lb 'Elib mem
End Function


Sper sa nu fi gresit ceva pentru ca am scris direct aici functia.
Problem solved

later edit:

sau fa un fisier in Notepad si scrie:

regsvr32.exe "c\windows\system\some.ocx" 'unde c:\wind.. este calea catre ocx si redenumeste extensia in .bat

Edited by Sorin Nedelcu, 21 October 2009 - 18:11.