>>>Declare Sleep IN Win32API; >>> INTEGER dwMilliseconds >>> >>>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 >>> >>>Declare INTEGER BringWindowToTop IN Win32API ; >>> INTEGER HWND >>> >>>Declare integer SetActiveWindow in user32.dll ; >>> integer hwnd >>> >>>oShell = CREATEOBJECT("WScript.Shell") >>> >>>nhandler = 0 >>>ntetivas = 0 >>>* >>>Do while nhandler = 0 .and. ntetivas < 99 >>> nhandler = ais_running("My form caption") >>> ntetivas = ntetivas + 1 >>>Enddo >>>* is running, so activate it >>>If nhandler = 0 >>> * application not running, run it >>>Else >>> BringWindowToTop(nhandler) >>> Wait window "Activating windows.. Wait !!" nowait >>> SetActiveWindow(nhandler) >>>Endif >>>return >>> >>>Function ais_running >>>* check if a given application is running >>>Lparameter ctitle >>>* >>>hnext = GetActiveWindow() >>>* >>>* iterate through the open windows >>>Do WHILE hnext<>0 >>> cText = REPLICATE(CHR(0),80) >>> GetWindowText(hnext,@cText,80) && get window title >>> If UPPER(ALLTRIM(ctitle)) $ UPPER(cText) >>> * >>> Return hnext >>> Endif >>> hnext = GetWindow(hnext,2) && next window >>>Enddo >>>* required window not found >>>Return 0 >>>>>>