IF CheckWin('Policy Profiler 32')    && window title in quotes
   MESSAGEBOX('Policy Profiler is already running.'+CHR(13);
			 +'Please check your taskbar for the app'+CHR(13);
   			 +'and click on its button to maximize it.' ,48,'Policy Profiler is already running!')
   RETURN .F.
ENDIF


*---------------
FUNCTION CheckWin
    PARAMETER tcTitle

    * Routine which sees if an application is active by looking for its
    * Window title
    * expC1 Window title

    DECLARE INTEGER FindWindow in Win32API as FindWindow STRING, STRING

    RETURN IIF(FindWindow(0,tcTitle)>0,.T.,.F.)