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

本文整理自网络，侵删。

 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 取得dll所在目录

cnpack sqlite tool 2.04

Delphi 重启启动计算机的代码

Delphi 获取任意月份总共有多少天数

Delphi 实现程序放放多个进程条

Delphi 获取按键键值

Delphi 秒计算分钟、小时函数

Delphi idhttp访问百度

Delphi 通过注册表获取系统版本和cpu型号

Delphi 如何编写使stringgrid中的一列具有check功能，和checkbox效果一样

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

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