如何用一个程序截获或（和）管理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;