delphi 监视剪贴板内容-木庄网络博客

本文整理自网络，侵删。
 本文将介绍在Delphi中如何使用“体贴板”，来丰富自己的软件功
能。

---- Windows使用剪贴板观察器和观察链。剪贴板观察器是一个显示剪贴板当前内容的
窗口。通常它应该至少能显示三种普通格式的内容：文字CF_TEXT、位图CF_BITMAP、元
文件CF_METAFILEPICT。剪贴板观察链是一系列相互独立的剪贴板观察窗口，它们都能
够接受当前发送到剪贴板的内容。我们大致按照以下步骤在窗口中处理有关剪贴板的内
容。

---- 首先，使用SetClipboardViewer（HWND）函数向剪贴板观察链中加入一个观察窗
口。当剪贴板的内容发生变化时，该窗口会接收到一个WM_DRAWCLIPBOARD消息。该函数
需要传递的参数是观察窗口的句柄。返回值也是一个窗口句柄类型，标识了将要加入的
下一个窗口。

---- 然后，响应WM_DRAWCLIPBOARD消息处理剪贴板内容的变化。

---- 最后，在程序退出或关闭时需要调用ChangeClipboardChain函数来将自己从观察
链中删除。然后调用SendMessage函数把这些消息传递到观察链中的下一个观察窗口。
函数ChangeClipboardChain原型如下：

BOOL ChangeClipboardChain(
HWND hWndRemove, file://将要删除的窗口的句柄
HWND hWndNewNext file://观察链中下一个窗口的句柄
);

---- 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;
file://处理WM_DRAWCLIPBOARD消息过程
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

{ TForm1 }

procedure TForm1.WMDrawClip
Board(var AMessage: TMessage);
begin
file://将WM_DRAWCLIPBOARD
消息传递到下一个观察链中的窗口
SendMessage(NextClipHwnd,AMessage.
Msg,AMessage.WParam,AMessage.LParam);
file://查询剪贴板中特定格式的数据内容
if (Clipboard.HasFormat(CF_TEXT) or
Clipboard.HasFormat(CF_OEMTEXT)) then
begin
file://处理剪贴板中内容
Caption:=Clipboard.asText;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
file://获得观察链中下一个窗口句柄
NextClipHwnd:=SetClipBoardViewer(Handle);
end;

procedure TForm1.FormClose
(Sender: TObject; var Action: TCloseAction);
begin
file://从观察链中删除本观察窗口
ChangeClipboardChain(Handle,NextClipHwnd);
file://将WM_DRAWCLIPBOARD
消息传递到下一个观察链中的窗口
SendMessage(NextClipHwnd,WM_
CHANGECBCHAIN,Handle,NextClipHwnd);
end;

end.

---- 需要注意的是，在处理剪贴板内容变化的消息WM_DRAWCLIPBOARD的过程和关闭窗
口事件中使用函数sendmessage把WM_DRAWCLIPBOARD或WM_CHANGECBCHAIN消息传递到观
察链中的下一个窗口是必要的，否则有可能其他窗口不能获得类似消息。另外，在使用
网络蚂蚁时笔者曾经碰到不能设置剪贴板格式的情况，在此提醒读者注意检查
RegisterClipboardFormat等函数的返回值。
delphi 监视剪贴板内容

相关推荐

评论
