{ Sample module showing how to shut down V++
  by calling some Windows API functions }
  
function FindWindow( ClassName,WindowName:pointer ) : integer ;
external 'User32' ; name 'FindWindowA' ;

procedure SendMessage( Handle,Message,wParam,lParam:integer ) ; 
external 'User32' ; name 'SendMessageA' ;

const
  wm_Close = 16 ;

begin
  SendMessage( FindWindow( 'TFrameForm','V++' ),wm_Close,0,0 ) ;
end