ShanShiMin(剑雨飘香),我按你说的可以行的通，但是为什么菜单失效了？请解答，谢谢！

Question

就是你说的这个关于拦截屏幕保护消息的事。
我的菜单不能用了，鼠标点不开，而且右上角的最小化，关闭等都不起作用。
拦截屏保消息，做出相应的处理unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    CheckBox1: TCheckBox;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  protected
    procedure WMSYSCOMMAND (var Msg: TWMSYSCOMMAND);message WM_SYSCOMMAND ;
  end;var
  Form1: TForm1;implementation{$R *.dfm}{ TForm1 }procedure TForm1.WMSYSCOMMAND(var Msg: TWMSYSCOMMAND);
begin
  //捕获屏保消息
  if Msg.CmdType = SC_SCREENSAVE then    
    Application.Terminate;//结束运行
  inherited;
end;end.

Answer 1

这么写确实可以起到拦截屏保然后自动关闭当前程序的作用，可是如果程序里有菜单的话，菜单打不开了。这怎么办？
我用的也是DELPHI6