当前位置: 源码素材网 » Delphi教程 » 详情页

Delphi 引用Clipbrd单元监视剪贴板内容

  •   时间:2020-02-13
  • 概述:剪帖板 监视器

Delphi 监视Windows剪贴板内容,引用Clipbrd单元个来实现,先来检测剪贴板:

function TCilpboard,HasFormat(format:Word):Boolean;//检测剪贴板中是否具有指定格式的数据。

参数说明:format:查看剪贴板中是否具有该参数指定的类型。返回值:如果剪贴板中具有所指定格式的数据则返回True。可以通过Clipboard.AsText属性能够得到当前剪贴板中的文本。例子:

procedure WMdrawclipboard(var aa:TMessage);message wm_drawclipboard;
public下声明:next:HWND;
procedure TForm1.WMdrawclipboard(var aa: TMessage);
begin
  SendMessage(next,aa.Msg,aa.WParam,aa.LParam);
  if(clipboard.HasFormat(CF_TEXT) or Clipboard.HasFormat(CF_OEMTEXT)) then
  begin
    Memo1.Clear;
    Memo1.Lines.Add(clipboard.AsText);
  end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
  next:=SetClipboardViewer(Handle);  //使本窗口可以浏览剪贴板
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  ChangeClipboardChain(Handle,next);
  SendMessage(next,WM_CHANGECBCHAIN,Handle,next);
end;

    相关内容:

    相关声明:

      若“Delphi 引用Clipbrd单元监视剪贴板内容”有损您的权益,请告之我们删除内容。
      部分文章来源于网络,版权归原作者所有。