betolink
29 de Septiembre del 2005

Gracias por la ayuda si funciona pero otra preguntica como puedo ocultar la ventana de DOS.

Otro
29 de Septiembre del 2005

Funci贸n ShellExec
Enero 2003


--------------------------------------------------------------------------------



ShellExec es una poderosa funci贸n que podemos incorporar en nuestras aplicaciones, manda llamar al programa que esta asociado a en un determinado archivo, si por ejemplo mandamos llamar ShellExec("c:misdatos.xls") busca cual es el programa que abre el archivo "misdatos.xls" que en este caso es Excel, abre el Excel con el archivo misdatos.xls.



FUNCTION ShellExec


LPARAMETER lcLink, lcAction, lcParms

lcAction = IIF(EMPTY(lcAction), "Open", lcAction)
lcParms = IIF(EMPTY(lcParms), "", lcParms)

DECLARE INTEGER ShellExecute ;
IN SHELL32.dll ;
INTEGER nWinHandle, ;
STRING cOperation, ;
STRING cFileName, ;
STRING cParameters, ;
STRING cDirectory, ;
INTEGER nShowWindow

DECLARE INTEGER FindWindow ;
IN WIN32API ;
STRING cNull,STRING cWinName

RETURN ShellExecute(FindWindow(0, _SCREEN.caption), ;
lcAction, lcLink, ; lcParms, SYS(2023), 1)

ENDFUN



Algunos usos:



Mandar Correo Electr贸nico:

ShellExec("mailto:[email protected]")



Abrir Explorador de Windows:

ShellExec("c:")



Abrir Internet Explorer

ShellExec("http://www.microsoft.com")



etc, etc.



Otra forma de utilizarlo es por medio del Objeto Shell.



o=CREATEOBJECT("Shell.Application")
o.Open("http://www.microsoft.com")

o.SetTime()

o.ShutdownWindows()

o.FileRun()

o.FindFiles()

o.FindComputer()

o.MinimizeAll()