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

[nancy_song]

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

[naughtyboy]

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消息捕获

[Dhammacakkhu]

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

[nancy_song]

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

[nancy_song]

我是在applicationEvents，onException事件中写的代码。

是不是要找到COM　SERVER　WARNING　异常的名字？