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 代码查询一个 ip 地址的归属地

Delphi 计算农历的单元

Delphi字符串隐藏

Delphi 获取 treeview选中的文件路径

Delphi 取时间戳

Delphi中最小化其他程序及所有程序窗口最小化

Delphi查找特定的exe是否在运行

Delphi 数据库char varchar nvarchar区别

Delphi ios 保持设备开机状态

Delphi 屏幕渐变效果的源代码

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

转载请注明出处：木庄网络博客 » delphi 备份恢复剪切板