Short and sweat

[sebs]

How do i use Regsvr32.exe at run time???

[r0ach]

Shell "Regsrv32.exe /r blah.dll", vbNormalFocus

[r0ach]

New Project:
Form
Name = frmMain
Caption = "r0ach"
CheckBox
Name = chkReg
Value = vbChecked
Caption = "Register"

    Private Sub Form_Load()
        Me.OleDropMode = 1
    End Sub

    Private Sub Form_OLEDragDrop(Data As DataObject, _
                                 Effect As Long, _
                                 Button As Integer, _
                                 Shift As Integer, _
                                 X As Single, _
                                 Y As Single)
        If chkReg.Value = vbChecked Then
            If Shell("Regsvr32.exe " & Data.Files(1), vbHide) then
                MsgBox Data.Files(1) & " was registered successfully"
            Else
                MsgBox Data.Files(1) & " was not registered"
            End If
        Else
            If Shell("Regsvr32.exe /u " & Data.Files(1), vbHide) then
                MsgBox Data.Files(1) & " was unregistered successfully"
            Else
                MsgBox Data.Files(1) & " was not unregistered"
            End If
        End If
    End Sub

[sebs]

but what is DataObject, is it a type

data.files(1)->????????????

[sebs]

it ok i figure it out

Thank a lot for the code

Can i register .ocx(active x) with it to??

[sebs]

Ok i did a test to unregister and then register it back and it gave that error both time:.........dll was loaded, but then DllRegisterServer entry point was not found.

DllRegisterServer may not be exported or a corrup version of ........dll may be in memory.

What the problem!

[r0ach]

I believe so. I'm not sure though.

[r0ach]

I tested it, and got the same error. But according to the msgboxes, it registered and unregistered.

lemme check something...

OK. Try this:

Private Sub Form_Load()
    Me.OleDropMode = 1
End Sub

Private Sub Form_OLEDragDrop(Data As DataObject, _
                             Effect As Long, _
                             Button As Integer, _
                             Shift As Integer, _
                             X As Single, _
                             Y As Single)
    If chkReg.Value = vbChecked Then
        On Error Resume Next
        Shell "Regsvr32.exe /s " & Data.Files(1), vbNormal
        If Err = 0 Then
            MsgBox Data.Files(1) & " was registered successfully"
        Else
            MsgBox Data.Files(1) & " was not registered"
        End If
        On Error GoTo 0
    Else
        On Error Resume Next
        Shell "Regsvr32.exe /u /s " & Data.Files(1), vbNormal
        If Err = 0 Then
            MsgBox Data.Files(1) & " was unregistered successfully"
        Else
            MsgBox Data.Files(1) & " was not unregistered"
        End If
        On Error GoTo 0
    End If
End Sub

[sebs]

Now it work, what was wrong, is it the parameters that you (/u, /s).So i put all my dll on the other computer and then i make a loop to register all the dll that i've copied.
??