Misión Imposible???

[Secula]

Quisiera saber si es posible registrar una dll programando mediante VB sin necesidad de utilizar el programa Regsvr32.
Por otro lado, me gustaría saber si alguien me puede ayudar para poder meter esta información de un archivo de registro vía programación.

REGEDIT4
[HKEY_CLASSES_ROOT\CLSID\{2152B7B7-2EF4-4F8C-A2F8-4BFFB72B746A}]
@="Arbol"
[HKEY_CLASSES_ROOT\CLSID\{2152B7B7-2EF4-4F8C-A2F8-4BFFB72B746A}\Description]
@=""
[HKEY_CLASSES_ROOT\CLSID\{2152B7B7-2EF4-4F8C-A2F8-4BFFB72B746A}\Implemented Categories\{E357129A-DB40-11D2-B783-0060B0F159EF}]
[HKEY_CLASSES_ROOT\CLSID\{2152B7B7-2EF4-4F8C-A2F8-4BFFB72B746A}\Required Categories]
[HKEY_CLASSES_ROOT\CLSID\{2152B7B7-2EF4-4F8C-A2F8-4BFFB72B746A}\Required Categories\{E357129B-DB40-11D2-B783-0060B0F159EF}]
[HKEY_CLASSES_ROOT\CLSID\{2152B7B7-2EF4-4F8C-A2F8-4BFFB72B746A}\Settings]
"LoadOnStartUp"="1"
"Type"="Standard"

No sé si será posible. Yo creo que sí.
Un saludo

[SunDarK]

Respecto a lo segundo:
http://www.windowsdevcenter.com/pub/...rtup_0401.html

Espero que te sirva,saludosss

[ajojara]

Te refieres a usar algo así como esto?
' En las declaraciones del módulo
Public Declare Function RegOpenKeyEx Lib "advapi32" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, ByRef phkResult As Long) As Long

' Y luego abrir clave de registro bajo KeyRoot
' {HKEY_LOCAL_MACHINE...}
rc = RegOpenKeyEx(KeyRoot, KeyName, 0, KEY_ALL_ACCESS, hKey)

[Jorge_Mota]

para registrar el ocx
Debes cambiar las cadenas "ComCtl32.OCX" por la ruta y el nombre de tu ocx
'KPD-Team 1999
'URL: http://www.allapi.net/
'E-Mail: [email protected]

Declare Function DllRegisterServer Lib "ComCtl32.OCX" () As Long
Declare Function DllUnregisterServer Lib "ComCtl32.OCX" () As Long

Const ERROR_SUCCESS = &H0

' To register your OCX use this function:
If DllRegisterServer = ERROR_SUCCESS Then
MsgBox "Registration Successful"
Else
MsgBox "Registration Unsuccessful"
End If

' To unregister your OCX use this function:
If DllUnregisterServer = ERROR_SUCCESS Then
MsgBox "UnRegistration Successful"
Else
MsgBox "UnRegistration Unsuccessful"
End If