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

本文整理自网络，侵删。

 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; 

相关阅读 >>

windows api 的数据类型与 Delphi 数据类型对照表

Delphi常用日期函数

Delphi 遍历注册表

Delphi 删除字符串重复的符号只保留一个

Delphi tfilestream 的读写 合并文件

Delphi中datetimepicker组件介绍

Delphi olevariant excel保存文件

Delphi copy 字符串函数

Delphi获取exe文件版本信息的函数

Delphi xe2 - 万一“获取程序自身大小的函数”改进版

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

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