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

Posts: 1816

Joined: Wed Oct 26, 2005 02:49 PM

Contar numero de instancias de la aplicación (Solucionado)
Posted: Sat Aug 26, 2023 05:45 PM

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

Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: Contar numero de instancias de la aplicación
Posted: Sun Aug 27, 2023 07:36 AM

Estimado Leandro,

Code (fw): Select all Collapse

#include "FiveWin.ch"

function Main()

    local nFWHApps := 0

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

    MsgInfo( nFWHApps )

return nil

regards, saludos

Antonio Linares
www.fivetechsoft.com

Horizon

Posts: 1387

Joined: Fri May 23, 2008 01:33 PM

Re: Contar numero de instancias de la aplicación
Posted: Sun Aug 27, 2023 01:09 PM

Hi,

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

Regards,

Hakan ONEMLI

Harbour & MSVC 2022 & FWH 23.06

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: Contar numero de instancias de la aplicación
Posted: Tue Aug 29, 2023 06:56 AM

leandro wrote: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 (fw): Select all Collapse

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

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: Contar numero de instancias de la aplicación
Posted: Tue Aug 29, 2023 08:43 AM

Code (fw): Select all Collapse

#include "FiveWin.ch"

function Main()

    local nFWHApps := 0

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

    MsgInfo( nFWHApps )

return nil

regards, saludos

Antonio Linares
www.fivetechsoft.com

sysctrl2

Posts: 1144

Joined: Mon Feb 05, 2007 07:15 PM

Re: Contar numero de instancias de la aplicación
Posted: Tue Aug 29, 2023 02:50 PM

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

Cesar Cortes Cruz

SysCtrl Software

Mexico

' Sin +- FWH es mejor "

leandro

Posts: 1816

Joined: Wed Oct 26, 2005 02:49 PM

Re: Contar numero de instancias de la aplicación
Posted: Wed Aug 30, 2023 09:40 PM

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

Era lo que necesitábamos.

Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]

FiveTech Support Forums

Continue the discussion