how do I registar dll's (very easy)

[dimava]

I goto RUN then I type what????? I forgot please help


thanks in adavnace

[parksie]

regsvr32 mydll.dll

...to register.

regsvr32 /u mydll.dll

...to unregister.

[dimava]

thanks

[steve65]

Can you register OCX's the same way?

[dimava]

yea, and once megatron suggested using:

regsvr32 "c:\my ocxs\a.ocx"

becuase then you can have spaces in it

[parksie]

You can also do it from inside your program, by calling the DllRegisterServer and DllUnregisterServer functions which are exported from all OCX files. (An OCX is a DLL with a different extension).

An example of what parksie is talking about is this:

'This will register or unregister a dll/ocx
Option Explicit
Private Declare Function DllRegisterServer Lib "MyDll.Dll" () As Long
Private Declare Function DllUnregisterServer Lib "MyDll.Dll" () As Long

Const ERROR_SUCCESS = &H0

If DllRegisterServer = ERROR_SUCCESS Then
    MsgBox "Registration Successful"
Else
    MsgBox "Registration Unsuccessful"
End If

If DllUnregisterServer = ERROR_SUCCESS Then
    MsgBox "UnRegistration Successful"
Else
    MsgBox "UnRegistration Unsuccessful"
End If

Or use the Shell method.

Shell "Regsvr32.exe mydll.dll"

[steve65]

Is there a way to verify that the OCX was or was not registered before you run the code below?

Originally posted by Matthew Gates

'This will register or unregister a dll/ocx
Option Explicit
Private Declare Function DllRegisterServer Lib "MyDll.Dll" () As Long
Private Declare Function DllUnregisterServer Lib "MyDll.Dll" () As Long

Const ERROR_SUCCESS = &H0

If DllRegisterServer = ERROR_SUCCESS Then
    MsgBox "Registration Successful"
Else
    MsgBox "Registration Unsuccessful"
End If

If DllUnregisterServer = ERROR_SUCCESS Then
    MsgBox "UnRegistration Successful"
Else
    MsgBox "UnRegistration Unsuccessful"
End If