Sergio
El exe lo corro desde dos.
Saludos.
César.-
El 2015-06-06 21:24, Sergio Fabián Ibarra escribio:
Dale un vistazo a este código, y ya tenès la mitad de lo q buscas…
Saludos!
* FUNCTION: Is_Run32.prg
* AUTHOR: George Tasker
* DATE: January 13, 1998 - 8:26 AM
* PURPOSE: Determines if a Windows
* application is running and returns
* the handle of the window if it is,
* otherwise returns 0. 32 bit version
* for Windows 95/NT 3.51-4
LPARAMETER pctitle
* Parameter list description
*
* pctitle - The title bar of the Window
* Note: The title does not have to be
* the complete title that appears
*
*
* API Declarations
DECLARE INTEGER GetActiveWindow IN Win32API
DECLARE INTEGER GetWindow IN Win32API;
INTEGER hwnd, INTEGER dflag
DECLARE INTEGER GetWindowText IN Win32API ;
INTEGER hwnd, STRING @lptstr, INTEGER cbmax
LOCAL lnhwnd, lnnext, lldone, lctitle_bar, lcsearchfor,;
lntext_len
lcsearchfor = UPPER(ALLTRIM(pctitle))
lnhwnd = GetActiveWindow()
lnnext = 2
lldone = .F.
lctitle_bar = ""
lncnt=0
DO WHILE NOT lldone
IF NOT EMPTY(lnhwnd)
lctitle_bar = SPACE(200) + CHR(0)
lntext_len = GetWindowText(lnhwnd, @lctitle_bar, 200)
lctitle_bar = UPPER(LEFT(lctitle_bar, lntext_len))
IF(lcsearchfor $ lctitle_bar)
lnCNT=lncnt+1
endif
lnhwnd = GetWindow(lnhwnd, lnnext)
ELSE
lldone = .T.
ENDIF
ENDDO
RETURN lncnt
Enviado desde Correo de Windows
DE: Cesar Luque [5]
ENVIADO EL: sábado, 06 de junio de 2015
06:56 a.m.
PARA: GUFA List Member [6]
run cae_dos.exe
----- Original Message -----
FROM: Pablo Pioli [1]
TO: GUFA List Member [2]
SENT: Wednesday, June 03, 2015 11:03 PM
SUBJECT: [GUFA] Re: Ejecucion de un .exe desde un fox/dos
Como ejecutas el programa?
DE: Cesar Luque [3]
ENVIADO EL: miércoles, 03 de junio de 2015
07:06 p.m.
PARA: [email protected] [4]
Estimados
Al ejecutar un .exe ( hecho en vfp90 ) desde un programa en fox para
dos, el programa en dos se minimiza
y para volverlo a primer plano hay que picar sobre el mismo en la
barra de tareas.
Alguien pudo hace que esto no suceda? es decir que quede el programa
en dos siempre en primer plano?
Saludos.
César.-
Links:
------
[1] mailto:[email protected]
[2] mailto:[email protected]
[3] mailto:[email protected]
[4] mailto:[email protected]
[5] mailto:[email protected]
[6] mailto:[email protected]
--
Saludos.-
Cèsar Luque
Ingeniero en Computaciòn
Mat 1.1746.3
03492-15586735
www.proinf.com.ar
