这段代码问题出在那里

[myyebin]

procedure TForm1.btn1Click(Sender: TObject);
var
  h:HWND;
  cmd:string;
  cpd : COPYDATASTRUCT;
begin
  h := FindWindow('ACG!',nil);
  cmd := 'connect 61.152.242.114:27014'; 
  cpd.dwData := 0;
  cpd.cbData := Length(cmd);
  cpd.lpData := PChar(cmd);
  SendMessage(h,WM_COPYDATA,$12,Lparam(@cpd));
end;

查看窗体的时候发现显示自己设置的字符后面多了这么几个字符 EdAwzdAw0,是什么原因呢。

[myyebin]

本来设置是 connect 61.152.242.114:27014
到控制台里查看时 connect 61.152.242.114:27014EdAwzdAw0这样了

[myyebin]

本来应该是 connect 61.152.242.114:27014
现在变成了 connect 61.152.242.114:27014EdAwzdAw0

[s11ss]

cpd.cbData := Length(cmd) + 1;

问题如果解决请及时结贴:)

[myyebin]

谢谢了，还是CSDN里面热心人多啊。