delphi的代码不能通过，请各位帮忙看看，谢谢

Question

procedure TForm1.Button1Click(Sender: TObject);
 var i:thandle;begin
i := findwindow(nil,'warcraft III');
sendmessage(i, keybd_event(91, MapVirtualKey(91, 0), 0, 0),0,0);／／按下［
sendmessage(i,keybd_event(93, MapVirtualKey(93, 0),0,0),0,0);　　／／按下］
sendmessage(i,keybd_event(91, MapVirtualKey(91, 0), KEYEVENTF_KEYUP, 0),0,0);　／／放开［
sendmessage(i,keybd_event(93, MapVirtualKey(93, 0), KEYEVENTF_KEYUP, 0),0,0);　　／／放开　］
end;～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～
另外，我还想学习delphi下实现warkey的方法，但是没有相关　资料　，请各位前辈帮忙下
mail to :[email protected]

Answer 1

估计是因为Warcraft3有防注入机制什么的，报错还是编译通过运行无效？