实现拷贝

Question

在Delphi 中如何实现拷贝指定字符串到剪贴板中？不借助edit 和 memo 这些控件

Answer 1

uses 
  clipboards;
然后自己写代码.实现

Answer 2

clipboards后面的多多，看一下就清楚了！

Answer 3

上面的好象错了,uses clipbrd;
然后自己写代码

Answer 4

对,写错了uses ClipBrd; 
procedure StrToClipbrd(StrValue: string);varA: array[0..255] of char;beginStrPCopy(A, StrValue);Clipboard.SetTextBuf(A);end;function GetStrFromClipbrd : string;beginif Clipboard.HasFormat(CF_TEXT) thenresult := Clipboard.AsTextelsebeginShowMessage('There is no text in the Clipboard!');result := '';end;end;