Pasale el nombre del archivo y el directorio de trabajo (que puede ser
donde esa el archivo)
******************************************************************************************************
* Funcion eShellExecute
* Returns: 2 - Bad Association (e.g., invalid URL)
* 31 - No application association
* 29 - Failure to load application
* 30 - Application is busy
*
* Values over 32 indicate success
* and return an instance handle for
* the application started
******************************************************************************************************
Function eShellExecute(tcFileName,tcWorkDir,tcOperation)
LOCAL lcFileName,lcWorkDir,lcOperation
If Empty(tcFileName)
Return(-1)
Endif
lcFileName=ALLTRIM(tcFileName)
lcWorkDir=IIF(TYPE("tcWorkDir")="C",ALLTRIM(tcWorkDir),"")
lcOperation=IIF(TYPE("tcOperation")="C" AND NOT
EMPTY(tcOperation),ALLTRIM(tcOperation),"Open")
*-* HINSTANCE ShellExecute(hwnd, lpszOp, lpszFile, lpszParams, lpszDir,
wShowCmd)
*-*
*-* HWND hwnd - handle of parent window
*-* LPCTSTR lpszOp - address of string for operation to perform
*-* LPCTSTR lpszFile - address of string for filename
*-* LPTSTR lpszParams - address of string for executable-file parameters
*-* LPCTSTR lpszDir - address of string for default directory
*-* INT wShowCmd - whether file is shown when opened
Declare INTEGER ShellExecute ;
IN SHELL32.DLL ;
INTEGER nWinHandle,;
STRING cOperation,;
STRING cFileName,;
STRING cParameters,;
STRING cDirectory,;
INTEGER nShowWindow
Return ShellExecute(0,lcOperation,lcFilename,"",lcWorkDir,1)
El 19/03/2015 a las 12:47 p.m., Walter Comito escibió:
DE 10 GRACIAS
Gracias.
Walter Cómito
Analista de Sistemas
MP 0397 C.P.C.I.P.C.
[email protected]
[email protected]
+54 351 494.4667
153.292.707
www.softram.com.ar
Si no es necesario, no imprima este correo.
Todos somos responsables por el cuidado del medio ambiente.
NOTA DE CONFIDENCIALIDAD
Este mensaje (y sus anexos) es confidencial y puede contener información de
propiedad
exclusiva de Walter Cómito (SRS Sistemas). Si usted ha recibido este mensaje
por error,
por favor comuníquelo inmediatamente a [email protected] y tenga la
amabilidad
de eliminarlo; no deberá copiar el mensaje ni divulgar su contenido a ninguna
persona.
Muchas Gracias.
-----Mensaje original-----
De: [email protected] [mailto:[email protected]] En nombre de pablo
Enviado el: jueves, 19 de marzo de 2015 12:10
Para: GUFA List Member
Asunto: [GUFA] PDF
Walter, fijate si esto te sirve.
X1 = Nombre del archivo
varPath = '"'+alltrim(x1)+'"'
oShell = CreateObject("Wscript.Shell")
oShell.Run(varPath, 3, .f.) &&[ el 3 corre con ventana maximizada creo... ]
release oShell
Pablo Siguenza
-----Mensaje original-----
De: [email protected] [mailto:[email protected]] En nombre de Walter Comito Enviado
el: jueves, 19 de marzo de 2015 11:51 a.m.
Para: GUFA List Member
Asunto: [GUFA] PDF
Amigos como est n.
Quiero mostrar en pantalla un archivo pdf de una factura electr nica que tengo
guardado en una carpeta dentro del sistema Si le doy con el run y el nombre del
archivo no me muestra nada, si lo hago desde la ventana de comandos (cmd) lo
muestra por defecto en el programa predeterminado para mostrar los archivos pdf
Alguna sugerencia para ver como solucionarlo
Walter Comito
---
El software de antivirus Avast ha analizado este correo electr nico en busca de
virus.
http://www.avast.com
---
El software de antivirus Avast ha analizado este correo electrónico en busca de
virus.
http://www.avast.com
