Try this function. You must pass part or whole caption of Your application as a parameter.


FUNCTION IsRunning(cCaption)
LOCAL hNext, cText
DECLARE INTEGER GetActiveWindow IN Win32API
DECLARE INTEGER GetWindow IN Win32API INTEGER hWnd, INTEGER nType
DECLARE INTEGER GetWindowText IN Win32API INTEGER hWnd, STRING @cText, INTEGER nType
hNext = GetActiveWindow()
DO WHILE hNext # 0
cText = REPLICATE(CHR(0), 80)
GetWindowText(hNext, @cText, 80)
IF UPPER(cCaption) $ cText
RETURN .t.
ENDIF
hNext = GetWindow(hNext, 2)
ENDDO

RETURN .f.