1. 剪贴文本AsText、SetTextBuf、GetTextBuf
Clipboard.AsText := Text;
Clipboard.SetTextBuf(PChar(Text)); {按参数类型要求, 需要转换一下} ShowMessage(Clipboard.AsText); {Form1}
Clipboard.AsText := Text; Clipboard.GetTextBuf(arr, Length(arr));
2.剪贴图片Assign、HasFormat ; CF_BITMAP 常量表示图片
Clipboard.Assign(Image1.Picture); {把 Image1 中的图片放入剪切板} {现在在图像软件中都可以粘贴了, 可以用 Windows 画图板试试}
{如果当前剪切板中的东西不是图片, 就退出}