获取剪贴板文字内容的代码

本文整理自网络，侵删。

 procedure TFmStartNewTask.GetClipBoardData;
var
CbBuf: PChar;
BufSize: Integer;
H: THandle;
begin
if Clipboard.HasFormat(CF_TEXT) then begin
H := ClipBoard.GetAsHandle(CF_TEXT);
BufSize := GlobalSize(H);
GetMem(CbBuf, BufSize);
BufSize := Clipboard.GetTextBuf(cbBuf, BufSize);
end;
end; 

相关阅读 >>

Delphi 非主窗体(即子窗体)在任务栏显示按钮

5种运行程序的方法具体应用实例

Delphi 2009 泛型容器单元(generics.collections)[2]: tqueue<t>

Delphi tstringlist的delimitedtext的空格问题

webbrowser里网页根据文字判断来点击链接

Delphi 多函数形式的多线程同步-线程执行顺序

Delphi 自定义colorbox只显示指定颜色项目 colorbox显示中文颜色名称

Delphi xe 横屏竖屏的管理

Delphi 不管什么日期格式转换都不会错了

Delphi 小数点四舍五入问题

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

转载请注明出处：木庄网络博客 » 获取剪贴板文字内容的代码