📄 266.htm
字号:
<!-- saved from url=(0022)http://internet.e-mail -->
<html>
<head>
<title>监视剪贴板内容  </title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="inc.css">
</head>
<body bgcolor="#FFFFFF" text="#000000" link="#000000" vlink="195434" alink="195434">
<table width="621" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td width="621"><a href="http://www.CoDelphi.com"><img src="images/logo.gif" border="0" width="153" height="60"><img src="images/bigbanner.gif" border="0" width="468" height="60"></a></td>
</tr>
</table><br>
<br>
<table width="621" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td align="left" valign="top" class="font9" height="155">
<div align="center" class="btitle">监视剪贴板内容  <br>
<br>
</div>
<div align="center"><strong>转载 </strong></div>
<b><br>
摘 要</b>：时刻检测剪贴板内容 <br>
<b> 关键字</b>：监视 剪贴板 <br>
<b> 类 别</b>：API
<hr size="1" width="100%">
<span class="content">---- 冲浪的年代，用过网络蚂蚁的人肯定不少，其中一项监视剪贴板变化的功能让人感觉到不少体贴。本文将介绍在Delphi中如何使用“体贴板”，来丰富自己的软件功能。 <br><br>---- Windows使用剪贴板观察器和观察链。剪贴板观察器是一个显示剪贴板当前内容的窗口。通常它应该至少能显示三种普通格式的内容：文字CF_TEXT、位图CF_BITMAP、元文件CF_METAFILEPICT。剪贴板观察链是一系列相互独立的剪贴板观察窗口，它们都能够接受当前发送到剪贴板的内容。我们大致按照以下步骤在窗口中处理有关剪贴板的内容。 <br><br>---- 首先，使用SetClipboardViewer（HWND）函数向剪贴板观察链中加入一个观察窗口。当剪贴板的内容发生变化时，该窗口会接收到一个WM_DRAWCLIPBOARD消息。该函数需要传递的参数是观察窗口的句柄。返回值也是一个窗口句柄类型，标识了将要加入的下一个窗口。 <br><br>---- 然后，响应WM_DRAWCLIPBOARD消息处理剪贴板内容的变化。 <br><br>---- 最后，在程序退出或关闭时需要调用ChangeClipboardChain函数来将自己从观察链中删除。然后调用SendMessage函数把这些消息传递到观察链中的下一个观察窗口。函数ChangeClipboardChain原型如下： <br><br>BOOL ChangeClipboardChain(<br>HWND hWndRemove, //将要删除的窗口的句柄<br>HWND hWndNewNext //观察链中下一个窗口的句柄<br> ); <br><br>---- Delphi的clipbrd.pas单元中定义了一个类TClipboard，它封装了Windows剪贴板，简化了大量复杂的处理过程。我们在程序中可以直接调用全局函数Clipboard，该函数用于返回TClipboard对象实例，使用这个实例对剪贴板进行剪切、复制和粘贴等操作。下面是TClipboard对象的几个常用的方法和属性的简单介绍。 <br><br>---- 方法： <br><br>---- Assign：将指定的对象放入剪贴板中。 <br><br>---- Open：打开剪贴板，防止其他程序改写剪贴板。在向剪贴板加入多项数据时尤其有用。 <br><br>---- Close：关闭剪贴板。应该与打开剪贴板成对使用。 <br><br>---- Clear：清空剪贴板。 <br><br>---- GetAsHandle：返回剪贴板中指定格式数据的句柄。使用前必须打开剪贴板。 <br><br>---- GetComponent：返回剪贴板中的一个控件。Delphi自己使用得多。 <br><br>---- HasFormat：查询剪贴板中是否有指定格式的内容。 <br><br>---- 属性： <br><br>---- AsText：用于读写剪贴板文字内容。 <br><br>---- FormatCount：读剪贴板中数据格式的种数。 <br><br>---- Formats：返回剪贴板中各种格式的列表。 <br><br>---- 此外，Delphi中的许多控件中也封装了有关剪贴板处理的操作。下面的一个处理剪贴板的简单例子，只是将剪贴板的文字内容显示为窗口标题。 <br><br>unit Unit1;<br><br>interface<br><br>uses<br> Windows, Messages, SysUtils, Classes,<br> Graphics, Controls, Forms, Dialogs,<br> Clipbrd;//加入clipbrd单元<br><br>type<br> TForm1 = class(TForm)<br> procedure FormCreate(Sender: TObject);<br>procedure FormClose(Sender: TObject;<br> var Action: TCloseAction);<br> private<br> { Private declarations }<br> public<br> NextClipHwnd:HWND;//观察链中下一个窗口句柄<br>procedure WMDrawClipBoard<br>(var AMessage:TMessage);<br> message WM_DRAWCLIPBOARD;<br>//处理WM_DRAWCLIPBOARD消息过程<br> end;<br><br>var<br> Form1: TForm1;<br><br>implementation<br><br>{$R *.DFM}<br><br>{ TForm1 }<br><br>procedure TForm1.WMDrawClip<br>Board(var AMessage: TMessage);<br>begin<br> //将WM_DRAWCLIPBOARD<br>消息传递到下一个观察链中的窗口<br> SendMessage(NextClipHwnd,AMessage.<br>Msg,AMessage.WParam,AMessage.LParam);<br> //查询剪贴板中特定格式的数据内容<br> if (Clipboard.HasFormat(CF_TEXT) or<br> Clipboard.HasFormat(CF_OEMTEXT)) then<br> begin<br> //处理剪贴板中内容<br> Caption:=Clipboard.asText;<br> end;<br>end;<br><br>procedure TForm1.FormCreate(Sender: TObject);<br>begin<br> //获得观察链中下一个窗口句柄<br> NextClipHwnd:=SetClipBoardViewer(Handle);<br>end;<br><br>procedure TForm1.FormClose<br>(Sender: TObject; var Action: TCloseAction);<br>begin<br> //从观察链中删除本观察窗口<br> ChangeClipboardChain(Handle,NextClipHwnd);<br> //将WM_DRAWCLIPBOARD<br>消息传递到下一个观察链中的窗口<br> SendMessage(NextClipHwnd,WM_<br>CHANGECBCHAIN,Handle,NextClipHwnd);<br>end;<br><br>end.<br><br>---- 需要注意的是，在处理剪贴板内容变化的消息WM_DRAWCLIPBOARD的过程和关闭窗口事件中使用函数sendmessage把WM_DRAWCLIPBOARD或WM_CHANGECBCHAIN消息传递到观察链中的下一个窗口是必要的，否则有可能其他窗口不能获得类似消息。另外，在使用网络蚂蚁时笔者曾经碰到不能设置剪贴板格式的情况，在此提醒读者注意检查RegisterClipboardFormat等函数的返回值。</span>
<table border="0" cellspacing="0" cellpadding="1" class="font9" align="center" width="100%">
<tr align="left" valign="middle" bgcolor="195434">
<td height="1"></td>
</tr>
</table>
</td>
</tr>
<tr>
<td bgcolor="#C9C9C6" height="2"></td>
</tr>
</table>
<div align="center"><br>
中文开发在线<a href="http://www.codelphi.com" target="_blank">www.codelphi.com</a>授权使用。
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -