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,是什么原因呢。
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,是什么原因呢。
到控制台里查看时 connect 61.152.242.114:27014EdAwzdAw0这样了
现在变成了 connect 61.152.242.114:27014EdAwzdAw0