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

本文整理自网络，侵删。

 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 中文大写日期转换函数

Delphi 快捷键

Delphi dbgrid查询内容的导出为txt函数

Delphi tms web core webmemo 横竖滚动条

Delphi 是否是闰年- isleapyear、isinleapyear

Delphi 截取绝对路径的文件名

Delphi 通过 shgetspecialfolderlocation、shgetpathfromidlist 函数获取常用路径

Delphi 使用firedac tfdibbackup和tfdibrestore备份和还原firebird

Delphi中使用tlist类的简单分析

Delphi firemonkey移动应用程序将设置保存到ini文件的示例

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

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