uses Clipbrd; procedure TForm1.Button1Click(Sender: TObject); begin Clipboard.AsText := Text; ShowMessage(Clipboard.AsText); {Form1} end; --------------------
Delphi操作剪贴板
原文：https://www.cnblogs.com/m0488/p/9692459.html
