delphi实时监控剪贴板

Delphi实时监视剪贴板[转]
实时监视剪贴板

我们知道，网络蚂蚁和JETCAR等下载工具都能够实时地监视剪贴板(ClipBoard)，这可是个实用的功能。如果我们
能够在自己的程序中实现这个功能，肯定非常有趣。

那它到底是如何实现的呢？可以想到的最简单的方法是，直接开个Timer,定时检查剪贴板上的内容，或者另
写个线程来检查。这两个方法都能够监视剪贴板，但遗憾的是实时性太差，又太占用资源，很不合算。好一点的方
法可以用Win32API中关于剪贴板钩子(HOOK)的函数，只要安装了剪贴板的钩子函数，就可以做到实时地监视剪贴
板，因为任何剪贴板的改变都会触发一条消息，而钩子函数拦截了这条信息。然而，这要求当前程序必须要有机会
获得CPU控制权才能处理这个消息。例如，用WORD的宏编一个循环粘贴文本内容到剪贴板的函数，当函数执行时，
由于WORD并没有释放CPU，监视剪贴板的程序并不能处理消息。只有当宏执行完了之后，别的程序才能获得处理机
会，但此时，剪贴板只剩下最后一次粘贴的内容了。而且，使用HOOK非常危险，一旦你的程序出了问题，整个系统
也就跟着翘辫子了。

既然这些方法都不太理想，那我们不妨转换一下思维，不再去管剪贴板，而想想如何让剪贴板直接向自己的
程序发消息，这样肯定能做到百分之百的实时。为此我仔细的查看了Windows的编程手册，结果是：因为剪贴板不
具有自己的句柄(Handle)，它本身也不是Windows的一个类，故剪贴板是不会自己发消息的(真可惜)。但是系统能
够接收Cut/Copy to Clipboard等消息，也即接收WM_COPY和WM_CUT，WM_PASTE等消息，而能够发消息的是剪贴板查
看器(Clipboard Viewer)，多个剪贴板查看器依次连接成剪贴板查看链(CHAIN)。因此，要监视剪贴板必须将自己
的程序注册成为剪贴板查看器(加入链表中)。下面以DELPHI为例编程说明其具体过程。

先新建一个工程，在Form1上增加一个MEMO控件，然后在代码的uses部分自己添加Clipbrd单元，因为下面要
用到的API函数大多是在Clipbrd单元里定义的，再在Var部分定义一个变量：

var hwndNextViewer:hWnd;

用于保存剪贴板查看器链中下一个窗口的句柄。
接下来，理所当然是注册窗口成为剪贴板查看器了。在Form1的OnCreate事件中加入一句：

hwndNextViewer := SetClipboardViewer(handle);

该函数会将指定的窗口加入剪贴板查看器链，参数handle就是你欲新加入的窗口的句柄，返回值则为系统的
剪贴板查看器链中下一个窗口的句柄。
当你自己的程序退出时，必须从链中删除本窗口，并调整剪贴板查看链。在Form1的OnClose事件中加入两

句：

ChangeClipboardChain(handle, hwndNextViewer);
SendMessage(hwndNextViewer,WM_CHANGECBCHAIN,Handle,hwndNextViewer);

函数ChangeClipboardChain是SetClipboardViewer的逆操作，能将第一个参数handle指定的窗口从链中删
除，第二个参数是链中下一个窗口的句柄，是供系统调整链表用的，我们不用管它。SendMessage是向链中的下一
个窗口发送一个剪贴板查看链已经改变的消息(WM_CHANGECBCHAIN)，让它进行内部程序的调整。第三和第四参数是
当前退链窗口和下一个窗口的句柄。
同样的，当链中的其它窗口退链时也会发送 WM_CHANGECBCHAIN 消息，你必须接收这个消息。在 private 部
分加入：

procedure ClipboardChangeCBChain(var message: TMessage);message WM_CHANGECBCHAIN;

再在implementation后加入处理过程，以调整剪贴板查看链。

procedure TForm1.ClipboardChangeCBChain(var message: TMessage);
begin
with message do
begin
if WParam=hwndNextViewer then
hwndNextViewer := LParam
else if (hwndNextViewer <> NULL) then
SendMessage(hwndNextViewer, Msg,wParam, lParam);
end;
end;

该过程实际上只是判断如果需要则修改变量hwndNextViewer的值，如果不需要修改则将WM_CHANGECBCHAIN 消
息发送给链中的下一个窗口处理，依此进行整个链表的调整。
最后一步，也是最关键的一步，如果剪贴板内容有变化,窗口将自动激活 WM_DRAWCLIPBOARD消息，也即间接
地实现了让剪贴板向自己的程序发消息的功能，这就能够实时监视剪贴板，相信蚂蚁和JETCAR等也应该是用这个方
法。有一点要注意的是，在接收处理WM_DRAWCLIPBOARD消息时要将消息传递给剪贴板查看链中的下一个窗口，以便
让其它程序也能监视剪贴板，因为该消息只直接发给链中的第一个程序，其他程序不会直接收到该消息。
程序如下，在 private 部分加入：

procedure ClipboardChanged(var message: TMessage);message WM_DRAWCLIPBOARD;

再编写自己的处理过程，这就是你自由发挥的地方了。本例设为自动将剪贴板的文本粘贴到MEMO控件中。

procedure TForm1.ClipboardChanged(var message: TMessage);
var
s :string;
begin
//判断剪贴板内容是否为文本
if Clipboard.HasFormat(CF_TEXT) then
begin
//取得剪贴板内文本内容
s := Clipboard.astext;
memo1.lines.add(s);
end;
//向下一链传递消息
if (hwndNextViewer <> NULL) then
with message do
SendMessage(hwndNextViewer, Msg,wParam, lParam);
end;

这一过程中使用了 TClipboard 类的 Clipboard 函数获取剪贴板内文本内容，至于如何获取剪贴板内的其它
多种类型的内容则不在本文讨论范围内了，读者可自己在DELPHI中输入 TClipboard ，再按CTRL+F1，各个

函数的
用法自然就清楚了。
以上程序在DELPHI5+PWIN98下运行通过，欢迎大家一起切磋。


附上源程序完整代码：

unit ClipboardUnit;

interface

uses
Clipbrd, //自己添加Clipbrd单元
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
CommCtrl, StdCtrls;

type
TForm1 = class(TForm)
Memo1: TMemo;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
//接收两个消息
procedure ClipboardChanged(var message: TMessage);message WM_DRAWCLIPBOARD;
procedure ClipboardChangeCBChain(var message: TMessage);message WM_CHANGECBCHAIN;
end;

var
Form1: TForm1;
hwndNextViewer:hWnd;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
//注册成为剪贴板查看器并且保存下一窗口的句柄
hwndNextViewer := SetClipboardViewer(handle);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
//退出程序时调整剪贴板查看链
ChangeClipboardChain(handle, hwndNextViewer);
SendMessage(hwndNextViewer,WM_CHANGECBCHAIN,Handle,hwndNextViewer);
end;

procedure TForm1.ClipboardChangeCBChain(var message: TMessage);
begin
//调整剪贴板查看链
with message do
begin
if WParam=hwndNextViewer then
hwndNextViewer := LParam
else if (hwndNextViewer <> NULL) then
SendMessage(hwndNextViewer, Msg,wParam, lParam);
end;
end;

procedure TForm1.ClipboardChanged(var message: TMessage);
var
s :string;
begin
//以下为剪贴板内容改变时的处理
if Clipboard.HasFormat(CF_TEXT) then //判断剪贴板内容是否为文本
begin
s := Clipboard.astext; //取得剪贴板内文本内容
memo1.lines.add(s);
end;
//向下一链传递消息
if (hwndNextViewer <> NULL) then
with message do
SendMessage(hwndNextViewer, Msg,wParam, lParam);
end;

end.