Por Marco León (FoxBoard-Perú)
Yo uso el RegSvr32.exe, que se
encuentra en \Windows\system, lo que tienes que hacer es que el progrmaa de
instalacion incluya este archivo, porque en algunos windows no le he
encontrado.
Entonces incluyelo en tu install y luego usas esto:
run /n command.com /k regsvr32.exe micontrol.ocx
o
algo mas impresionante!!!
DO_command("regsvr32.exe",0)
El DO_COMMAND es una función que utiliza la API de windows para ejecutar
el comando en oculto. Es algo asi:
*------------------
FUNCTION Do_Command
*------------------
*Do_Command([command.com /c copy /b "Nombre archivo.Extensión" /b
"Destino del Archivo"], 0)
*El 2do parámetro de la func Do_Command es como se muestra el comando o la App
a ejecutar:
* 0 - no se muestra (se ejecuta, pero no se hace visible)
* 1 - la Ventana se Muestra Normal
* 2 - minimizado
* 3 - Maximizado
* 4 - Tamaño Normal, pero no le entrega el Foco al Programa/Comando que
se ejecuta
LPARAMETERS cComando, nMostrar
IF PCOUNT() == 1
RETURN WinExec(cComando, 0)
ENDIF
IF PCount() == 2
RETURN WinExec(cComando, nMostrar)
ENDIF
Y la api es:
*-- Declaración que sirve para la ejecución de comandos DOS
desde el windows
DECLARE LONG WinExec IN kernel32 ;
STRING
lpCmdLine ,;
LONG nCmdShow
FoxPress – Febrero de 2001
© 2001 FoxPress. All rights reserved