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

本文整理自网络，侵删。

 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 快速远程屏幕传输api版

Delphi 缩放图形打印输出

Delphi thttprio 控件调用webservice超时问题

Delphi 弹出输入框的inputquery, inputquery 函数用法

Delphi 获取鼠标当前位置的相对坐标

Delphi获得文件的版本号

Delphi中datetimepicker组件介绍

Delphi中initialization和finalization

Delphi截取字符串 防止中文截断

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

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