截获与管理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_SYSCOMMAND Then Beep;
{ 接收到消息时的通知}
End;
Procedure TForm1.FormCreate (Sender : Tobject);
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_SYSCOMMAND Then Beep;
{ 接收到消息时的通知}
End;
Procedure TForm1.FormCreate (Sender : Tobject);
Begin
Application.OnMessage := WinMsg;
{ 替换消息句炳}
End;
来自 “ ITPUB博客 ” ，链接：https://blog.itpub.net/10748419/viewspace-998425/ ，如需转载，请注明出处，否则将追究法律责任。
请登录后发表评论
登录
全部评论
