收藏本站 收藏本站
积木网首页 - 软件测试 - 常用手册 - 站长工具 - 技术社区
积木学院 > 程序开发 > delphi > 正文

编程实现对剪贴板的监视

来源:互联摘选 日期:2006-07-24 06:42
p>  可能有很多电脑使用者使用过剪贴板来监视软件,该软件可以将剪贴板的每次变化保存起来,以便使用者随时调用,下面就介绍怎样用Delphi编程来实现对剪贴板进行监视的功能。

  在Windows中,有一个剪贴板观察链(Chain of Clipboard Viewers),当剪贴板的内容每次发生改变时,Windows都会向剪贴板观察链中所有的窗口发送WM_DRAWCLIPBOARD消息。通过Windows API函数SetClipboardViewer可以将窗口设置到剪贴板观察链中,然后在程序中编写WM_DRAWCLIPBOARD消息处理函数就可以基本实现对剪贴板的监视功能了,在退出程序时,要调用ChangeClipboardChain函数,以便将窗口从剪贴板监视链中删除。

  Delphi中提供了一个TClipboard控件,可以实现一些需要进行复杂的Windows API编程才能实现的功能。而且,Delphi中的文本和图形控件提供了比VB中的类似控件更强大的剪贴板操作功能。同时,Delphi中虽然没有提供WM_DRAWCLIPBOARD事件,但是,Delphi提供了一个像C++一样让编程人员可以自由地编写用户自定义函数的功能,这样,编程人员就可以编写自定义函数来处理Delphi中没有提供的消息了,从而可以方便地监视剪贴板的每一次变化了。

  具体实现对剪贴板的监视功能的源代码见右边程序,首先要在Form1中加入一个TMemo控件和一个TImage控件,不需要改变它们的属性。

  该程序在Win 95、Delphi 4.0下运行通过。
  unit Unit1;
  interface

  uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,  ExtCtrls,Clipbrd, StdCtrls;

  type

   TForm1 = class(TForm)
   Image1: TImage;
   Memo1: TMemo;
   procedure FormCreate(Sender: TObject);
   procedure FormClose(Sender: TObject; var Action: TCloseAction);
   private
   procedure WMDrawClip(var Message:TMessage);message WM_DRAWCLIPBOARD;
   { Private declarations }
   public
   { Public declarations }
   end;

  var
   Form1: TForm1;
   //保存下一个接受剪贴板消息的窗口的句柄
   hwndNextClip:integer;

  implementation
  {$R *.DFM}
  procedure TForm1.WMDrawClip(var Message:TM age);
  begin
   //将剪贴板消息发送到观察链上的下一个窗口
   SendMessage(hwndNextClip,Message.Msg,Message.WParam ,Message.LParam );

  if(Clipboard.HasFormat(CF_TEXT) or Clipboard.HasFormat(CF_OEMTEXT)) then
   //剪贴板上的内容是文本格式
  begin
   //设置Memo1接收文本
   Memo1.Align:= alClient;
   Memo1.Visible :=True;
   Image1.Visible := False;

   //将剪贴板的内容粘贴到文本框中
   Memo1.PasteFromClipboard;
   end;

   if Clipboard.HasFormat(CF_BITMAP) then
   //剪贴板上的内容是位图格式
   begin
   //设置Image1接收位图
   Image1.Align:= alClient;
   Memo1.Visible :=False;
   Image1.Visible := True;

   //将剪贴板内容粘贴到图片框中
   Image1.Picture.LoadFromClipboardFormat
(CF_BITMAP,ClipBoard.GetAsHandle(CF_BITMAP),0);
   end;
  end;

  procedure TForm1.FormCreate(Sender: TObject);
  begin
   //把窗口设置到剪贴板查看链上
   hwndNextClip:=SetClipboardViewer(Form1.Handle);
  end;

  procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
  begin
   //将窗口从剪贴板观察链中删除
   ChangeClipboardChain(Form1.Handle,hwndNextClip);
   SendMessage(hwndNextClip,WM_CHANGECBCHAIN,Form1.Handle ,hwndNextClip);
  end;

  end.

推荐阅读

 

热点信息

 
强悍的草根IT技术社区,这里应该有您想要的! 友情链接:b2b电子商务
Copyright © 2010 Gimoo.Net. All Rights Rreserved  京ICP备05050695号