|
高手求助 12个同样游戏 获取句柄 还有开始和准备 12个里有两个是开始 10个是准备 我怎么顺序先准备 后开始 ?
procedure TForm1.Button1Click(Sender: TObject);
var ddphwnd:hwnd;
var ppkdchwnd:hwnd;
begin
ddphwnd:=findwindow(nil,'对对碰角色版');
//获取窗口句柄
ppkdchwnd:=findwindow(nil,'PopKart Client');
//获取窗口句柄
sendmessage(ddpHwnd,messages.WM_LBUTTONDOWN,0,$0183017C);//单击
sendmessage(ddpHwnd,messages.WM_LBUTTONUP,0,$0183017C); //弹起
sendmessage(ppkdchwnd,messages.WM_LBUTTONDOWN,0,$0050002f);//单击
sendmessage(ppkdchwnd,messages.WM_LBUTTONUP,0,$0050002f); //弹起
end;
这个是我用连个不同游戏学了下 比例 我怎么先启动'PopKart Client'这个然后在启动对对碰角色版' ?
如何解决 要不就是 先启动10个准备 在启动2个开始 这个是游戏里的开始和准备 |
|