D7下可以的代码XE2下无效
procedure TForm1.btn1Click(Sender: TObject);
var
h:HWND;
cmd:string;
cpd : COPYDATASTRUCT;
begin
h := FindWindow('ACG!',nil);
cmd := 'snapshot';
cpd.cbData := Length(cmd)+1;
cpd.lpData := PChar(cmd);
SendMessage(h,WM_COPYDATA,$12,Lparam(@cpd));
end;
