监视剪贴板内容

原创 2000年09月20日 15:29:00


冲浪的年代,用过网络蚂蚁的人肯定不少,其中一项监视剪贴板变化的功能让人感觉到不少体贴。本文将介绍在Delphi中如何使用“体贴板”,来丰富自己的软件功能。

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等函数的返回值。


delphi 剪贴板操作,读取剪贴板内容

//全局变量NextClipHwnd:HWND;//剪贴板观察链中下一个窗口句柄    procedure TForm1.FormShow(Sender: TObject);begin  //获得剪贴...
  • webouse
  • webouse
  • 2008年05月27日 15:48
  • 4862

剪贴板监控--C++实现

给大家两个消息,happy的去玩吧:WM_CHANGECBCHAIN 和 WM_DRAWCLIPBOARD。。 原理:剪贴板有一个监控链表,这个链表中就是监控了剪贴板的程序,如果有新的监控程序加入或...
  • keep_moving_cqu
  • keep_moving_cqu
  • 2013年08月19日 11:05
  • 1702

c++获取剪切板的内容

剪贴板内置在windows中,并且使用系统的内部资源RAM,或虚拟内存来临时保存剪切和复制的信息,可以存放的信息种类是多种多样的。剪切或复制时保存在剪贴板上的信息,只有再剪贴或复制另外的信息 ,或停...
  • hank0526
  • hank0526
  • 2017年05月13日 18:37
  • 1312

剪切板监控及内容修改

  • 2013年06月06日 22:56
  • 174KB
  • 下载

基于API HOOK的剪切板监控

基于API HOOK的剪切板监控     摘  要  本文通过对剪切板机制的研究,采用API HOOK技术对剪切板的系统调用函数拦截,实现了对剪切板的监控,防止敏感信息通过剪切板泄露。    关键词 ...
  • menghjs
  • menghjs
  • 2010年11月22日 18:06
  • 2704

监视剪贴板内容

冲浪的年代,用过网络蚂蚁的人肯定不少,其中一项监视剪贴板变化的功能让人感觉到不少体贴。本文将介绍在Delphi中如何使用“体贴板”,来丰富自己的软件功能。 Windows使用剪贴板观察器和观察链。剪贴...
  • ghj1976
  • ghj1976
  • 2000年09月20日 15:29
  • 2122

VC监视剪贴板程序源码

  • 2008年10月06日 09:00
  • 14KB
  • 下载

windows 剪贴板监控

迅雷下载或者旋风下载都有一个很有意思的剪贴板监控功能,当你打开剪贴板监控时,如果你复制了一个下载的URL,这两个程序都会弹出来下载框来让你去下载,显得很智能,昨天发现灵格斯词霸也有个剪贴板取词功能。上...
  • magictong
  • magictong
  • 2009年04月19日 18:53
  • 11715

监视剪贴板内容

监视剪贴板内容 冲浪的年代,用过网络蚂蚁的人肯定不少,其中一项监视剪贴板变化的功能让人感觉到不少体贴。本文将介绍在Delphi中如何使用“体贴板”,来丰富自己的软件功能。 Windows使用剪贴板观察...
  • ati82
  • ati82
  • 2008年02月28日 13:44
  • 255

用java实现windows剪贴板监视

import java.awt.datatransfer.Clipboard;import java.awt.datatransfer.DataFlavor;import java.awt.datat...
  • jgku
  • jgku
  • 2007年03月28日 11:25
  • 536
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:监视剪贴板内容
举报原因:
原因补充:

(最多只允许输入30个字)