Contar numero de instancias de la aplicación (Solucionado)

[leandro]

Hola buenas tardes

Quería saber si podemos saber el numero de instancias de la aplicación que están abiertas en un momento determinado?

De antemano gracias

[Antonio Linares]

Estimado Leandro,

Code: Select all  Expand view  RUN

#include "FiveWin.ch"

function Main()

    local nFWHApps := 0

    EnumWindows( { | hWnd | If( GetClassName( hWnd ) == "TWINDOW", nFWHApps++, ) } )

    MsgInfo( nFWHApps )

return nil  

[Horizon]

Hi,

https://forums.fivetechsupport.com/viewtopic.php?f=3&t=41778&hilit=How+Many+App&start=0&sid=694288c4b3f3db24bffbc86bcded3f3c

[cnavarro]

Hola buenas tardes

Quería saber si podemos saber el numero de instancias de la aplicación que están abiertas en un momento determinado?

De antemano gracias

Leandro, prueba esto enviando a la function el titulo o parte del titulo de la aplicacion

Code: Select all  Expand view  RUN

Function FindWndCount( cTitle )

   local hWnd := GetWindow( GetDesktopWindow(), GW_CHILD )
   local nCount    := 0

   while hWnd != 0
      if Upper( cTitle ) $ Upper( GetWindowText( hWnd ) )
         nCount++
      endif
      hWnd := GetWindow( hWnd, GW_HWNDNEXT )
   end

return nCount
 

[Antonio Linares]

Code: Select all  Expand view  RUN

#include "FiveWin.ch"

function Main()

    local nFWHApps := 0

    EnumWindows( { | hWnd | If( GetClassName( hWnd ) $ "TWINDOW;TMDIFRAME", nFWHApps++, ) } )

    MsgInfo( nFWHApps )

return nil

[sysctrl2]

y que PCS de la red tienen abierto la app.exe

[leandro]

Antonio, Cristóbal, gracias maestros por las respuestas.

Era lo que necesitábamos.