{ Sample module showing how to send system menu commands to Excel }
{ Calls some Windows API functions directly }

{ Refer to the Windows SDK documentation for more info }

function FindWindow( ClassName,WindowName:pointer ) : integer ;
external 'User32' ; name 'FindWindowA' ;

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

const
  { message }
  wm_SysCommand = $0112 ;
  
  { commands }
  sc_Minimize   = 61472 ;
  sc_Maximize   = 61488 ;
  sc_Restore    = 61728 ; 
  sc_Close      = 61536 ;

begin
  { example }
  SendMessage( FindWindow( 'XLMAIN',0 ),wm_SysCommand,sc_Close,0 ) ;
end