码迷，mamicode.com
首页 > Windows程序 > 详细

delphi备份恢复剪切板

时间：2015-07-16 07:03:09      阅读：252      评论：0      收藏：0      [点我收藏+]

标签：

http://blog.csdn.net/youthon/article/details/7327776

 

delphi备份恢复剪切板                   

        分类：            Delphi编程2012-03-07 10:31578人阅读评论(0)收藏举报
delphidestructorconstructorintegerclasswindows

看了季世平老兄的C++代码后翻译过来的

 

[delphi] view plaincopyprint?
  1. unit clipbak; 
  2.  
  3. interface 
  4. uses 
  5.   SysUtils, Classes, Clipbrd, Windows, Contnrs; 
  6.  
  7. type 
  8.   TClipData = class 
  9.     Format: WORD; 
  10.     Data: THANDLE; 
  11.   end; 
  12.  
  13.   TClipBackuper = class 
  14.   private 
  15.     ClipList: TList; 
  16.   public 
  17.     constructor Create; 
  18.     destructor Destroy; override; 
  19.     procedure BackupClip(); 
  20.     procedure RestoreClip(); 
  21.   end; 
  22.  
  23.  
  24. implementation 
  25.  
  26.  
  27. constructor TClipBackuper.Create; 
  28. begin 
  29.   Cliplist := TObjectList.Create; 
  30. end; 
  31.  
  32. destructor TClipBackuper.Destroy; 
  33. begin 
  34.   ClipList.Free; 
  35. end;    
  36.  
  37. procedure TClipBackuper.BackupClip; 
  38. var 
  39.   i: Integer; 
  40.   Data: THANDLE; 
  41.   pcd: TClipData; 
  42.   DataMem: Pointer; 
  43. begin 
  44.   ClipList.Clear(); 
  45.   Clipboard.Open(); 
  46.   try 
  47.     for i := 0 to Clipboard().FormatCount - 1 do 
  48.     begin 
  49.       pcd := TClipData.Create; 
  50.  
  51.       pcd.Format := Clipboard().Formats[i]; 
  52. Data := THANDLE(Clipboard().GetAsHandle( pcd.Format)); 
  53.       if (Data = 0) then 
  54.       begin 
  55.         pcd.free; 
  56.         continue; 
  57.       end; 
  58.        
  59.       pcd.Data := GlobalAlloc(GMEM_MOVEABLE or GMEM_DDESHARE, GlobalSize(Data)); 
  60.       DataMem := GlobalLock(pcd.Data); 
  61.       if (DataMem <> nil) then 
  62.       begin 
  63.         CopyMemory(DataMem, GlobalLock(Data), GlobalSize(Data)); 
  64.         GlobalUnlock(THANDLE(pcd.Data)); 
  65.         GlobalUnlock(THANDLE(Data)); 
  66.       end; 
  67.       ClipList.Add(pcd); 
  68.     end; 
  69.   finally 
  70.     Clipboard().Close(); 
  71.   end;    
  72. end; 
  73.  
  74. procedure TClipBackuper.RestoreClip; 
  75. var 
  76.   pcd: TClipData; 
  77.   i: Integer; 
  78. begin 
  79.   Clipboard.Open(); 
  80.   try 
  81.     Clipboard.Clear(); 
  82.     for i := 0 to ClipList.Count - 1 do 
  83.     begin 
  84.       pcd := TClipData(ClipList[i]); 
  85.       SetClipboardData(pcd.Format, pcd.Data); 
  86.     end; 
  87.     ClipList.Clear(); 
  88.   finally 
  89.     Clipboard().Close(); 
  90.   end;    
  91. end; 
  92.  
  93. end. 

delphi备份恢复剪切板

标签：

原文地址：http://www.cnblogs.com/delphi-xe5/p/4649986.html
踩
(0)
赞
(0)
   
举报
评论 一句话评论（0）
登录后才能评论！
分享档案
更多>
2021年07月29日 (22)
2021年07月28日 (40)
2021年07月27日 (32)
2021年07月26日 (79)
2021年07月23日 (29)
2021年07月22日 (30)
2021年07月21日 (42)
2021年07月20日 (16)
2021年07月19日 (90)
2021年07月16日 (35)
周排行
mamicode.com排行更多图片
更多
友情链接
兰亭集智   国之画   百度统计   站长统计   阿里云   chrome插件   新版天听网
关于我们 - 联系我们 - 留言反馈
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码！