句：

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 &lt&gt 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 &lt&gt NULL) then

with message do

SendMessage(hwndNextViewer, Msg,wParam, lParam);

end;

这一过程中使用了 TClipboard 类的 Clipboard 函数获取剪贴板内文本内容，至于如何获取剪贴板内的其它

多种类型的内容则不在本文讨论范围内了，读者可自己在DELPHI中输入 TClipboard ，再按CTRL+F1，各个