delphi 备份恢复剪切板


本文整理自网络,侵删。

 
unit clipbak;

interface
uses
  SysUtils, Classes, Clipbrd, Windows, Contnrs;

type
  TClipData = class
    Format: WORD;
    Data: THANDLE;
  end;

  TClipBackuper = class
  private
    ClipList: TList;
  public
    constructor Create;
    destructor Destroy; override;
    procedure BackupClip();
    procedure RestoreClip();
  end;


implementation


constructor TClipBackuper.Create;
begin
  Cliplist := TObjectList.Create;
end;

destructor TClipBackuper.Destroy;
begin
  ClipList.Free;
end;   

procedure TClipBackuper.BackupClip;
var
  i: Integer;
  Data: THANDLE;
  pcd: TClipData;
  DataMem: Pointer;
begin
  ClipList.Clear();
  Clipboard.Open();
  try
    for i := 0 to Clipboard().FormatCount - 1 do
    begin
      pcd := TClipData.Create;

      pcd.Format := Clipboard().Formats[i];
      Data := THANDLE(Clipboard().GetAsHandle( pcd.Format));
      if (Data = 0) then
      begin
        pcd.free;
        continue;
      end;
      
      pcd.Data := GlobalAlloc(GMEM_MOVEABLE or GMEM_DDESHARE, GlobalSize(Data));
      DataMem := GlobalLock(pcd.Data);
      if (DataMem <> nil) then
      begin
        CopyMemory(DataMem, GlobalLock(Data), GlobalSize(Data));
        GlobalUnlock(THANDLE(pcd.Data));
        GlobalUnlock(THANDLE(Data));
      end;
      ClipList.Add(pcd);
    end;
  finally
    Clipboard().Close();
  end;   
end;

procedure TClipBackuper.RestoreClip;
var
  pcd: TClipData;
  i: Integer;
begin
  Clipboard.Open();
  try
    Clipboard.Clear();
    for i := 0 to ClipList.Count - 1 do
    begin
      pcd := TClipData(ClipList[i]);
      SetClipboardData(pcd.Format, pcd.Data);
    end;
    ClipList.Clear();
  finally
    Clipboard().Close();
  end;   
end;

end.

相关阅读 >>

Delphi写的验证身份证号有效性函数

Delphi sysutils.comparestr、sysutils.comparetext - 字符串比较

Delphi xe 播放 gif 动画

Delphi 过滤开头 结尾 全部 空格的函数

Delphi-xe5-开发 android uri简介

Delphi strutils.leftstr、strutils.rightstr - 提取左右字符串

Delphi中执行javascript代码

Delphi windows 编程[5] - 学习窗体生成的过程五

Delphi hex --> string

Delphi checklistbox 用法

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...