请问为什么我不能吧字符串复制到剪贴板里了？？ (50分)

unit hotkey;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Memo1: TMemo;
Edit1: TEdit;


procedure GetHotkey(var Msg : TWMHOTKEY);message WM_HOTKEY;
procedure FormCreate(Sender: TObject); //响应敏感键按键消息
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
i:integer;

implementation

{$R *.dfm}

procedure TForm1.GetHotKey(var Msg : TWMHOTKEY);
begin
if Msg.HotKey = $DDDDDD then
begin
if memo1.lines='--'then i:=i+1;
edit1.Text:=memo1.lines;
edit1.CopyToClipboard;//问题就在这里 这个句子好像没用亚
i:=i+1;
end;
end;


procedure TForm1.FormCreate(Sender: TObject);
begin

RegisterHotkey(handle,$DDDDDD,MOD_CONTROL+MOD_Alt,VK_F3);
memo1.lines.LoadFromFile('c:/namelist.txt');
i:=0;
end;

end.

guan zhu!

如果在同一个局域网好办，做一个Sniffer就行。如果不是，我觉得困难，因为你根本得不
到人家发的IP包。

不妨試一下：
在edit1.CopyToClipboard;語句上加
edit1.SelectAll;語句。

接受答案了.