Visual Basic - DLL COM. regsvr32.

Hola, tengo esta duda

cómo puedo utilizar el comando regsvr32 para registrar una DLL y no me salga la ventana de diálogo Windows diciéndote el resultado. Es decir, quiero que sólo salga el resultado en la ventana MS-DOS, el mensaje que diga que se ha registrado bien, y no en una ventana de Windows.

Es posible hacer esto ?

Gracias.

Sí, tenes que llamar a la función de levantar programa con una API de Windows.

ExecCmdNoFocus "Regsvr32 Libreria.dll"

Para esto tenés que agregar el procedimiento en un módulo:

Public Sub ExecCmdNoFocus(ByVal CmdLine As String)
'Esperar a que un proceso termine,
'la ventana se mostrará minimizada sin foco
Dim hProcess As Long
Dim RetVal As Long
Dim a As Long
'The next line launches CmdLine as icon,
'captures process ID
hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, False, _
Shell(CmdLine, vbHide))
Do
'Get the status of the process
GetExitCodeProcess hProcess, RetVal
'Sleep command recommended as well
'as DoEvents
DoEvents
Sleep 100
'Loop while the process is active
Loop While RetVal = STILL_ACTIVE
' ret = CloseHandle(hProcess)

'MsgBox "Terminó"

End Sub

y las llamadas:

Public Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long

Public Declare Function GetExitCodeProcess Lib "kernel32" (ByVal hProcess As Long, lpExitCode As Long) As Long

Cualquier cosa mandame un mail

Ernesto