Delphi 调用Clipboard 收集剪切板信息

本文整理自网络，侵删。

 
uses Clipbrd;



procedure TForm1.Timer1Timer(Sender: TObject);
begin
if Clipboard.HasFormat(CF_TEXT) then
  begin
  if Memo1.Lines.IndexOf(Clipboard.AsText)=-1 then
  begin
  Memo1.Lines.Add(Clipboard.AsText);
  end;
  //Clipboard.Clear;
  end
else
 // MessageDlg('There is no text on the Clipboard',mtInformation, [mbOK],0);
end;
 

相关阅读 >>

Delphi windows 编程[6] - 学习窗体生成的过程六: 最终的代码!

Delphi-xe5-开发 android uri简介

Delphi实现解析百度搜索结果link？url=

Delphi如何在资源管理器中定位文件

Delphi idhttp下载带清理网络缓存

Delphi android实例-trectangle加载图片(xe8+小米2)

Delphi 取 utc/tfiletime 时间

firemonkey 手机 app 的手势

Delphi在64位系统下写注册表注意事项

Delphi使用idhttp模拟提交页面方法总结

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

转载请注明出处：木庄网络博客 » Delphi 调用Clipboard 收集剪切板信息