如何监控Windows系统消息Message

alexwu

做了个鼠标钩子，按ctrl+alt+del会自动去勾，想监控WM_CANCELJOURNAL，不知道怎么实现，下面是代码，监控了一下，没有出现WM_CANCELJOURNAL，请大家帮忙看看怎么实现。Delphi时期可以在TApplicationEvents里面写，Lazarus没有这种东西了。

procedure TMainFrm.WndProc(var Message: TLMessage);
begin
  {log}

  if Message.Msg = WM_CANCELJOURNAL then
  begin
    if MainFrm.Showing then
      MainFrm.Hide;

    ShowCursor(True);
  end;

  inherited;
end;