截获与管理Windows的消息 (转)

截获与管理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;

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/10748419/viewspace-998425/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/10748419/viewspace-998425/