WatchDog Prg

[Jeff Barnes]

Hi,

I am trying to write a small app that will check every 5 seconds to see if a program is running or not.

I have tried a couple of different ways but it seems that the FWH app must have focus in order for it to work correctly.

I have tried using IsEXERunning() and also tried GetTasks() (using calculator as a sample).

Obviously I cannot have the focus always on my app ...

Has anyone got a simple solution?

[Armando]

Jeff:

I use these two functions to see if the calculator is active and they work fine, perhaps they are a good clue.

Code: Select all  Expand view

/*
* --------------------------------------------------------------------------*
* --------------------------------------------------------------------------*
*/
FUNCTION Calculadora()
LOCAL hWnd
    IF ( hWnd := SeekCalculadora() ) == 0
        WinExec( 'Calc.Exe', 0)     // SW_NORMAL )
    ELSE
        BringWindowToTop( hWnd )
        ShowWindow( hWnd, 1)            // SW_RESTORE )
    ENDIF
RETURN(NIL)


/*
* --------------------------------------------------------------------------*
* --------------------------------------------------------------------------*
*/
FUNCTION SeekCalculadora()
LOCAL aCaptions := {'Calc','Calculator','Calculadora'}
LOCAL nPos, hWnd
    FOR nPos := 1 TO LEN(aCaptions)
        IF ( hWnd := FindWindow( 0, aCaptions[nPos] ) ) > 0
            RETURN (hWnd)
        EndIf
    NEXT
RETURN(hWnd)
 

With best regards

[Jeff Barnes]

Thanks Armando. Exactly what I needed. Works perfectly.

[Armando]

Jeff:

Terrific !

Regards