delphi clipboard

判断clipboard里的格式：

if   CliPBoard.HasFormat(CF_TEXT)   then  
      EdIT1.Text   :=   CliPBoard.AsText

 

从clipboard中取数据：

①str:= clipboard.AsText;

②imgMain.Picture.Assign(ClipBoard);//要求格式相同

 

锁定和解锁：

GlobalLock(Handle)

GlobalUnlock(Handle)

 

打开剪贴板（THandle：剪贴板的归属，设置以后，其他程序不能再调用剪贴板）

OpenClipboard(THandle);