FWPPC apps running in background

[Antonio Linares]

By default, FWPPC does not allow that an application runs in background, as the user may close it and may not notice that the application is still running.

This example shows how to let a FWPPC run in background, if "x" is pressed:

Code: Select all

#include "fwce.ch"
#include "winapi.ch"
 
#define SW_MINIMIZE  6
 
function Main()
 
   local oWnd := TMyWindow():New( "Click to exit",, nOr( WS_CAPTION, WS_SYSMENU ) )
 
   oWnd:Activate( { || oWnd:End() },,,, { || MsgYesNo( "Want to end ?", "Please select" ) } )
 
return nil
 
CLASS TMyWindow FROM TWindow
 
   METHOD HandleEvent( nMsg, nWParam, nLParam )
   
   METHOD End( nID )
 
ENDCLASS
 
METHOD HandleEvent( nMsg, nWParam, nLParam ) CLASS TMyWindow
 
   do case
      case nMsg == WM_CLOSE
           ShowWindow( ::hWnd, SW_MINIMIZE )
           return 0
   
      case nMsg == WM_SIZE
           return nil           
   endcase
   
return Super:HandleEvent( nMsg, nWParam, nLParam )      
 
METHOD End( nID ) CLASS TMyWindow
 
   DEFAULT nID := 0
 
   if ::lValid()
      DestroyWindow( ::hWnd )
      ::nResult = nID
      return nil
   endif   
   
return 0