截获与管理Windows的消息 (转)[@more@]截获与管理
windows的消息
摘 要:如何用一个 程序截获管理Windows的消息
关键字:Windows 消息 监听 列表
类 别: 系统控制
有时候我们为了多项应用而要管理Windows的消息。我们怎样才能做到呢?
{ 这个例子定义的程序可以收取所有发往主窗口的消息 }
Unit TesteandoEsta;
Interface
Uses
SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, Forms, Dialogs, Menus;
Type
TForm1 = Class (TForm)
Private {Private declarations}
Public {Public declarations}
Procedure WinMsg (Var Msg : TMsg; Var Handled : Boolean);
End;
Var
Form1 : TForm1;
Implementation
{$R *.DFM}
{ 所有发送到主窗体的消息,保存在变量Msg中。 }
Procedure TForm1.WinMsg (Var Msg : TMsg; Var Handled : Boolean);
Begin
If Msg.Message = WM_SY SCOMMAND Then Beep;
{ 接收到消息时的通知}
End;
Procedure TForm1.FormCreate (Sender : T object);
Begin
Application.OnMessage := WinMsg;
{ 替换消息句炳}
End;
摘 要:如何用一个 程序截获管理Windows的消息
关键字:Windows 消息 监听 列表
类 别: 系统控制
有时候我们为了多项应用而要管理Windows的消息。我们怎样才能做到呢?
{ 这个例子定义的程序可以收取所有发往主窗口的消息 }
Unit TesteandoEsta;
Interface
Uses
SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, Forms, Dialogs, Menus;
Type
TForm1 = Class (TForm)
Private {Private declarations}
Public {Public declarations}
Procedure WinMsg (Var Msg : TMsg; Var Handled : Boolean);
End;
Var
Form1 : TForm1;
Implementation
{$R *.DFM}
{ 所有发送到主窗体的消息,保存在变量Msg中。 }
Procedure TForm1.WinMsg (Var Msg : TMsg; Var Handled : Boolean);
Begin
If Msg.Message = WM_SY SCOMMAND Then Beep;
{ 接收到消息时的通知}
End;
Procedure TForm1.FormCreate (Sender : T object);
Begin
Application.OnMessage := WinMsg;
{ 替换消息句炳}
End;
来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/10748419/viewspace-998425/,如需转载,请注明出处,否则将追究法律责任。
转载于:http://blog.itpub.net/10748419/viewspace-998425/