delphi如何调用按键精灵中的QMDispatch.dll 达到找图目的

Question

以下是网上找的源代码，
begin
  x:=0;y:=0;
 tmp:=createoleobject('QMDispatch.QMFunction');
 
  y:=tmp.FindPic(0,0,1023,767,'1.bmp',0.8);
  x:=y div 8192;
  y:=y mod 8192;
  SetCursorPos(x,y);
end;
程序运行后X ，Y坐标并没用被重行赋值而回到了原来0.0的坐标点，也没有任何错误提示
按网上其它论友回复说要导入ActiveX库功能，但问题还是没能解决望各位论友赐教

Answer 1

记得uses ComObj;var tmp:olevariant;
    x,y:integer;
begin
    tmp:= CreateOleObject('QMDispatch.QMFunction');
    y:=tmp.FindPic(0,0,1024,768,'i.bmp',0.9);    if y<0 then
      begin
      ShowMessage('找到图片!');
      Exit;
      end;    x:=y div 8192;
    y:=y mod 8192;    SetCursorPos(x+10,y+8);
end;把按键的helper.dll和WinIo.dll拷到根目录下,貌似还要导入ActiveX库,以上D7+XPSP2中通过

Answer 2

http://bbs.vrbrothers.com/viewthread.php?tid=244606参阅此贴