Saber cuantas veces se encuentra ejecutando un programa

Board index FiveWin para CA-Clipper Saber cuantas veces se encuentra ejecutando un programa

Posts: 203

Joined: Tue Oct 11, 2005 02:17 PM

Saber cuantas veces se encuentra ejecutando un programa
Posted: Tue Feb 10, 2009 06:55 PM

Hola no se si es posible saber cuantas veces se está ejecutando el programa:

La idea es poder guardar las coordenadas de la ventana al salir para restaurarlas al entrar, pero el programa se puede ejecutar varias veces con lo que la primera vez que se ejecute se restauraría en la posición en la que estaba la primera vez que se ejecutó, si se ejecuta una segunda vez aparecería la ventana en la segunda posición (que sería la almacenada cuando se cerro la ventana) y así sucesivamente.

Esto lo guardaría en un fichero en el que guardaría la posición de la ventana según el momento en que se abriera o cerrara, primera, segunda, etc.

Un saludo y gracias.

JmGarcia

Posts: 654

Joined: Mon May 29, 2006 03:14 PM

Re: Saber cuantas veces se encuentra ejecutando un programa
Posted: Tue Feb 10, 2009 07:23 PM

Esta parte de código te da las ventanas que hay en el escritorio (el array aNombres):

Code: Select all Collapse

#define GW_CHILD    5 
#define GW_HWNDNEXT 2 
#define GW_OWNER    4 

function main()

local hWnd:=GETWINDOW(GETDESKTOPWINDOW(),GW_CHILD)
WHILE hWnd != 0 
   cTitle:=alltrim(GETWINDOWTEXT(hWnd))
   if cTitle<>""
      if IsWindowVisible(hWnd) .and. GETWINDOW(hWnd,GW_OWNER)==0 .and. cTitle<>"Program Manager"
         aadd(aNombres,cTitle)
      endif
   endif
   hWnd:=GETWINDOW(hWnd,GW_HWNDNEXT) 
ENDDO

MsgList(aNombres)

return nil

Mi abuelo decía: Los aviones vuelan porque Dios quiere, y los helicópteros ni Dios sabe porque vuelan.

FWH 16.02, xHarbour 1.2.3, Harbour 3.2.0, WorkShop 4.5, AJ Make 0.30, Borlan BCC 7.00, VisualStudio 2013

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: Saber cuantas veces se encuentra ejecutando un programa
Posted: Tue Feb 10, 2009 08:40 PM

Con FindWindow( 0, cTituloVentanaPrincipal ) --> hWnd puedes localizar si la aplicación ya está en uso.

Si devuelve cero es que no se encuentra.

regards, saludos

Antonio Linares
www.fivetechsoft.com

FiveTech Support Forums

Continue the discussion