delphi 读取剪粘板内的html格式数据


本文整理自网络,侵删。

 
调用单元:uses Clipbrd;
procedure TForm1.Button4Click(Sender: TObject);
var
  s: string;
  hMem: DWORD;
  CF_HTML: DWORD; // 声明一个CF_HTML剪贴板格式
  txtPtr: Pansichar;
begin
  CF_HTML := RegisterClipboardFormat('HTML Format');  //注册HTML Format格式
  with TClipboard.Create do
  begin
    hMem := GetAsHandle(CF_HTML);
    txtPtr := GlobalLock(hMem);
    s := StrPas(txtPtr);
    GlobalUnlock(hMem);
    Memo1.Lines.Add(UF8Decode(s));
    Free;
  end;
end;

相关阅读 >>

Delphi 实现批量文件名修改

Delphi 随机指定范围的字符串函数

Delphi 删除动态数组的指定元素

Delphi中webbrowser(或者embeddedwebbrowser)控件打开部分网站报“invalid floating point operation”异常的解决方法

Delphi xe7 取得进程占用内存的两个函数

Delphi使用ado读写excel文件

Delphi 检测进程是否存在

Delphi winapi: shellexecute - 打开外部程序或文件

Delphi的整数性能测试

Delphi 如何从html格式的字符串中提取纯文本?

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...