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

2022-08-18 16:00:00 网络 Delphi

本文整理自网络，侵删。

 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编程防止界面卡死的方法

webbrowser点击没有id和name的按钮或链接

Delphi access数据库密码的mdb的访问报错“无法启动应用程序，或是已被其他用户已独占方式打开”

Delphi 屏幕dpi计算

Delphi中使用低层钩子屏蔽win、ctrl+esc、alt+tab、alt+f4

Delphi string.split 按照任意字符串分割语句

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