Cual programa de los abiertos se encuentra en primer plano con VFP9

Hola, como indique anteriormente
estoy interesado en saber cual aplicación de las abiertas en windows se
encuentra en primer plano, de hecho si lo hago desde VFP me va a decir
que es VFP la que esta en primer plano, pero la idea es hacerlo desde un
FORM que llama una rutina en un PRG o lo haga desde el mismo preguntando cada 0,5 segundos con un TIMER o un ciclo cual es la aplicación que se encuentra en primer plano y que el dato lo guarde en una variable.

Intente con esto pero no hace específicamente lo que yo quiero:

lActive =_lActiva('WINCAJA')
DECLARE INTEGER FindWindow in WIN32API ;
STRING cNULL,;
STRING cWinName
IF lActive = .T.
oWsh = CREATEOBJECT('WScript.Network')
oWsh.SetDefaultPrinter('EPSON TM-U675 No cut')
RELEASE oWsh
ENDIF
Function _lActiva(tcCaption)
DECLARE INTEGER FindWindow in WIN32API ;
STRING cNULL, ;
STRING cWinName
return FindWindow(0,
tcCaption) # 0
EndFunc