如何在屏幕中 查找图片

Question

vbs里面有一个findpic的函数不知道要怎么调用？function FindPic(iLeft,iTop,iRight,iBottom,szFileName,fSimilar,ByRef FoundX,ByRef FoundY)
'这个函数用于在屏幕范围内查找图片
dim obj
set obj = createobject("QMDispatch.QMFunction")
FoundPixel = obj.FindPic(iLeft,iTop,iRight,iBottom,szFileName,fSimilar)
FoundX = CInt(FoundPixel / 8192)
FoundY = FoundPixel Mod 8192
end function如果不用 vbs ，算法要怎么实现 ？？

Answer 1

贴别人的,我也不知道对不对.没试过.
procedure TForm1.Button4Click(Sender: TObject);
var
  tmp:olevariant;
  x,y:integer;
begin
  x:=0;y:=0;
  tmp:=createoleobject('QMDispatch.QMFunction');
  y:=tmp.FindPic(0,0,1023,767,'1.bmp',1);
  x:=y div 8192;
  y:=y mod 8192;      
  SetCursorPos(x,y);
end;