Este es una forma de saber si una aplicación se esta ejecutando; para eso utilizamos el API de Windows.
Se busca la aplicación a través del titulo de la ventana.
Declare Integer GetActiveWindowIn Win32API
Declare Integer GetWindow In Win32API;
INTEGER HWnd,Integer nType
Declare Integer GetWindowText In Win32API ;
INTEGER HWnd,String @cText, Integer nType
Declare Integer BringWindowToTopIn Win32API ;
INTEGER HWnd
cCaption = "Calculadora" &&
nHand = IsRunning(cCaption)
If nHand = 0
* Aplicación no ejecutada
Else
* Activa la aplicación
BringWindowToTop(lnHand)
EndIf
Function IsRunning (cTitulo)
hNext = GetActiveWindow()
Do While hNext<>0
cText = Replicate(Chr(0),80)
GetWindowText(hNext,@cText,80)
If Upper(Trim(cTitulo)) $ Upper(cText)
Return hNext
EndIf
hNext = GetWindow(hNext,2)
EndDo
Return 0
EndFunc
Si tienes inquietudes, sígueme en Twitter para contactarme.
Seguir a @davamadort¿Deseas que tu sitio web aparezca en buscadores como google, yahoo, msn?
Contrata un plan de hosting en www.winnethost.com y recibes totalmente gratis el registro de tu sitio web en más de 24 buscadores, entre ellos google, yahoo, msn
El Sitio La Web de Davphantom se encuentra hospedado en WinNetHost.com
