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 string转换成tstrings

Delphi整理一（基础知识）

Delphi 内存读取、修改

Delphi著名皮肤控件库大全评测

Delphi inputbox 用法

Delphi 带参数的 exit

Delphi 进程程序多开调用单元

Delphi调用命令行命令并获取返回信息

Delphi 用 getenvironmentvariable 获取常用系统环境变量

Delphi fdconnection查看所有表包含用户表和系统表

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

转载请注明出处：木庄网络博客 » delphi 读取剪粘板内的html格式数据