根据haochin的回复,我稍微改了一下,最后是这样:
use Clipbrd
procedure TForm1.Button2Click(Sender: TObject);
var
I : Integer;
begin
Clipboard.Clear;
for I := 0 to ListBox1.Count - 1 do
begin
Clipboard.AsText := Clipboard.AsText +listbox1.Items[I]+#13#10;
end;
//Clipboard.SetTextBuf(PChar(listbox1.Items.Text));
end;
可作为详细参考的内容
http://blog.csdn.net/alsamsung/archive/2011/03/02/6218096.aspx