本文整理自网络,侵删。
调用单元: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通过将数据放入exe的资源信息中的方式制作自已的安装工具
Delphi 学习 sql 语句 - select(9): 其他
Delphi 正则表达式tperlregex 类的属性与方法
更多相关阅读请进入《Delphi》频道 >>