procedure TForm1.Button1Click(Sender: TObject); var tmp:olevariant; x,y:integer; begin tmp:= CreateOleObject('QMDispatch.QMFunction'); y:=tmp.FindPic(0,0,1023,767,'1.bmp',0.9); x:=y div 8192; y:=y mod 8192; SetCursorPos(x+10,y+8); end;
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024