D7上可以的代码XE2上无效

D7下可以的代码XE2下无效

Perl code

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;