FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour 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) ]
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
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
Regards,



Hakan ONEMLI



Harbour & MSVC 2022 & FWH 23.06
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
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
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 "
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) ]

Continue the discussion