怎样捕获系统提示消息？我想屏蔽系统消息，然后自定义一个提示！！！

Question

program Project1;
 usesForms, messages, wintypes, winprocs,
 Unit1 in 'UNIT1.PAS' {Form1};
 {$R *.RES}
 var
  OldWndProc: TFarProc; 
function NewWndProc(hWndAppl: HWnd; Msg, wParam: Word; lParam: Longint): Longint; export;
begin  result := 0;
 { Default WndProc return value }  {*** 捕获消息，消息号在MSG中 ***}
  result := CallWindowProc(OldWndProc, hWndAppl, Msg, wParam, lParam);
end;
begin
  Application.CreateForm(TForm1, Form1);
  OldWndProc := TFarProc(GetWindowLong(Application.Handle, GWL_WNDPROC));
  SetWindowLong(Application.Handle, GWL_WNDPROC, longint(@NewWndProc));
  Application.Run;
end.
这是简单windows消息捕获

Answer 1

可以试试applicationEvents控件，里面有个onException，在里面截取系统提示信息字符，根据不同信息给出不同提示

Answer 2

楼上，我现在实现了自己定义的异常消息显示，但程序默认的COM　SERVER　WARNING　还是要显示，我怎么才能删掉其？

Answer 3

我是在applicationEvents，onException事件中写的代码。是不是要找到COM　SERVER　WARNING　异常的名字？