把字符串复制到剪贴板

uses Clipbrd;

Clipboard.AsText := str; //or Clipboard.SetTextBuf(PChar(str));