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删除文件

Delphi windows 编程[19] - 改变菜单项的状态: getmenustate、enablemenuitem

wmi技术介绍和应用

Delphi dbnavigator1 删除时弹出确认对话框

Delphi下pos机控制钱箱,客显,打印机

Delphi'控件的相对坐标与屏幕坐标转换

Delphi 获取网卡信息(支持多网卡)

Delphi 检测用户超过多长时间没有操作键盘或鼠标

Delphi 中相对路径与绝对路径函数说明

Delphi webbrowser 去除滚动条和边框

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

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