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);