Autor Tema: Ejecutar Comandos De Ms-dos (Leído 3497 veces)

ROBER.29 · « **en:** Viernes 30 de Enero de 2004, 11:44 »

Hola compañeros,

Como puedo ejecutar el comando regsvr32 desde código de Visual Basic?

Muchas gracias.

Saludos a todos.

ROBER.29

Se pueden ejecutar comandos de MS-DOS de la siguiente forma:

Código: Text

 
Option Explicit
 
Private Const PROCESS_QUERY_INFORMATION = &H400
Private Const STILL_ACTIVE = &H103
Private Declare Function OpenProcess Lib &#34;kernel32&#34; _
(ByVal dwDesiredAccess&, ByVal bInheritHandle&, ByVal dwProcessId&) _
As Long
Private Declare Function GetExitCodeProcess Lib &#34;kernel32&#34; _
(ByVal hProcess As Long, lpExitCode As Long) _
As Long
 
Sub EsperarShell(sCmd As String)
 
Dim hShell As Long
Dim hProc As Long
Dim codExit As Long
 
' ejecutar comando
hShell = Shell(Environ&#036;(&#34;Comspec&#34;) & &#34; /c &#34; & sCmd, 2)
 
' esperar a que se complete el proceso
hProc = OpenProcess(PROCESS_QUERY_INFORMATION, False, hShell)
 
Do
GetExitCodeProcess hProc, codExit
DoEvents
Loop While codExit = STILL_ACTIVE
 
MsgBox &#34;El comando ha acabado&#34;
 
End Sub
 
Private Sub Command1_Click()
EsperarShell (Text1.Text)
End Sub
 
 

Este ejemplo está sacado de la siguiente página:

http://support.microsoft.com/?scid=kb;es-es;E11075

Es el truco 4.

Un saludo.

Brroz

Hola Rober.29.

Con Shell sin más también vale, a no ser que necesites ejecutar el registro de forma síncrona, claro, en cuyo caso la filosofía a seguir es la del ejemplo.

Seguramente te interese ejecutar regsvr32 con el modificador /S para evitar el mensaje.

Échale un vistazo http://foros.solocodigo.com/index.php?showtopic=4489 que a lo mejor te interesa.

Chao.

ROBER.29

Gracias pero eso ya lo sabia.

Muchas gracias de todas formas.

Saludos.

QliX=D!

Podes directamente con la API Registrar componentes, lo cual te ahorraria hacer la Shell que queda... Feo

SoloCodigo

Autor Tema: Ejecutar Comandos De Ms-dos (Leído 3497 veces)

ROBER.29

Ejecutar Comandos De Ms-dos

ROBER.29

Re: Ejecutar Comandos De Ms-dos

Brroz

Re: Ejecutar Comandos De Ms-dos

ROBER.29

Re: Ejecutar Comandos De Ms-dos

QliX=D!

Re: Ejecutar Comandos De Ms-dos