实时监视剪贴板
我们知道,网络蚂蚁和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;
再编写自己的处理过程,这就是你自由发挥的地方了?纠栉远籼宓奈谋菊程組EMO控件中。
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.
---------------------------------------
Windows使用剪贴板观察器和观察链。剪贴板观察器是一个显示剪贴板当前内容的窗口。通常它应该至少能显示三种普通格式的内容：文字CF_TEXT、位图CF_BITMAP、元文件CF_METAFILEPICT。剪贴板观察链是一系列相互独立的剪贴板观察窗口，它们都能够接受当前发送到剪贴板的内容。我们大致按照以下步骤在窗口中处理有关剪贴板的内容。
首先，使用SetClipboardViewer（HWND）函数向剪贴板观察链中加入一个观察窗口。当剪贴板的内容发生变化时，该窗口会接收到一个WM_DRAWCLIPBOARD消息。该函数需要传递的参数是观察窗口的句柄。返回值也是一个窗口句柄类型，标识了将要加入的下一个窗口。
然后，响应WM_DRAWCLIPBOARD消息处理剪贴板内容的变化。
最后，在程序退出或关闭时需要调用ChangeClipboardChain函数来将自己从观察链中删除。然后调用SendMessage函数把这些消息传递到观察链中的下一个观察窗口。函数ChangeClipboardChain原型如下：
BOOL ChangeClipboardChain(
HWND hWndRemove, //将要删除的窗口的句柄
HWND hWndNewNext //观察链中下一个窗口的句柄
);
Delphi的clipbrd.pas单元中定义了一个类TClipboard，它封装了Windows剪贴板，简化了大量复杂的处理过程。我们在程序中可以直接调用全局函数Clipboard，该函数用于返回TClipboard对象实例，使用这个实例对剪贴板进行剪切、复制和粘贴等操作。下面是TClipboard对象的几个常用的方法和属性的简单介绍。
方法：
Assign：将指定的对象放入剪贴板中。
Open：打开剪贴板，防止其他程序改写剪贴板。在向剪贴板加入多项数据时尤其有用。
Close：关闭剪贴板。应该与打开剪贴板成对使用。
Clear：清空剪贴板。
GetAsHandle：返回剪贴板中指定格式数据的句柄。使用前必须打开剪贴板。
GetComponent：返回剪贴板中的一个控件。Delphi自己使用得多。
HasFormat：查询剪贴板中是否有指定格式的内容。
属性：
AsText：用于读写剪贴板文字内容。
FormatCount：读剪贴板中数据格式的种数。
Formats：返回剪贴板中各种格式的列表。
此外，Delphi中的许多控件中也封装了有关剪贴板处理的操作。下面的一个处理剪贴板的简单例子，只是将剪贴板的文字内容显示为窗口标题。
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes,
Graphics, Controls, Forms, Dialogs,
Clipbrd;//加入clipbrd单元
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject;
var Action: TCloseAction);
private
{ Private declarations }
public
NextClipHwnd:HWND;//观察链中下一个窗口句柄
procedure WMDrawClipBoard
(var AMessage:TMessage);
message WM_DRAWCLIPBOARD;
//处理WM_DRAWCLIPBOARD消息过程
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
{ TForm1 }
procedure TForm1.WMDrawClip
Board(var AMessage: TMessage);
begin
//将WM_DRAWCLIPBOARD
消息传递到下一个观察链中的窗口
SendMessage(NextClipHwnd,AMessage.
Msg,AMessage.WParam,AMessage.LParam);
//查询剪贴板中特定格式的数据内容
if (Clipboard.HasFormat(CF_TEXT) or
Clipboard.HasFormat(CF_OEMTEXT)) then
begin
//处理剪贴板中内容
Caption:=Clipboard.asText;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
//获得观察链中下一个窗口句柄
NextClipHwnd:=SetClipBoardViewer(Handle);
end;
procedure TForm1.FormClose
(Sender: TObject; var Action: TCloseAction);
begin
//从观察链中删除本观察窗口
ChangeClipboardChain(Handle,NextClipHwnd);
//将WM_DRAWCLIPBOARD
消息传递到下一个观察链中的窗口
SendMessage(NextClipHwnd,WM_
CHANGECBCHAIN,Handle,NextClipHwnd);
end;
end.
需要注意的是，在处理剪贴板内容变化的消息WM_DRAWCLIPBOARD的过程和关闭窗口事件中使用函数sendmessage把WM_DRAWCLIPBOARD或WM_CHANGECBCHAIN消息传递到观察链中的下一个窗口是必要的，否则有可能其他窗口不能获得类似消息。另外，在使用网络蚂蚁时笔者曾经碰到不能设置剪贴板格式的情况，在此提醒读者注意检查RegisterClipboardFormat等函数的返回值。