如何获得剪贴板中的HTML格式的数据

最新推荐文章于 2021-06-24 18:36:24 发布

最新推荐文章于 2021-06-24 18:36:24 发布 · 1k 阅读

文章标签：

#HTML

博客给出一段代码，用于获取HTML格式的剪贴板数据。代码中定义了相关变量，注册HTML格式，获取剪贴板数据句柄，创建剪贴板对象，若存在HTML格式数据则将其文本显示在memo1中。

procedure TForm1.Button1Click(Sender: TObject);
var
CF_HTML : UINT;
clpHandle : THandle;
cf : TClipboard;
begin
CF_HTML := registerclipboardformat('HTML Format');
clpHandle := GetClipboardData(CF_HTML);
cf := TClipboard.Create;
if cf.HasFormat(CF_HTML) then
memo1.Text := cf.AsText;
end;