易语言找图代码怎么写？

以下是易语言的一个找图代码例子：

// 找图函数，将图片与屏幕进行比对并返回坐标

函数 找图 (x1, y1, x2, y2, picpath: string, sim: integer): string
// x1, y1：查找区域左上角坐标；x2, y2：查找区域右下角坐标；
// picpath：待查找的图片路径；sim：相似度（0-100）。
var
handle, x, y, width, height: integer;
begin
// 打开图片
handle := LoadPic(binpath+picpath, 0);
// 获取图片的大小
GetPicSize(handle, @width, @height);
// 在指定区域内查找图片
if FindPic(x1, y1, x2, y2, handle, sim, width, height, @x, @y) = 1 then
begin
// 将找到的坐标转换为字符串返回
结果 := inttostr(x)+','+inttostr(y);
end
else
begin
结果 := '';
end;
// 释放图片资源
ClosePic(handle);
end;

// 使用示例
var
x, y: string;
begin
// 在(100,100)到(500,500)的区域内查找图片a.png，相似度为90%
x := 找图(100, 100, 500, 500, 'a.png', 90);
if x <> '' then
begin
// 在找到的坐标上点击鼠标左键
SplitString(x, ',', x, y);
MouseLeftClick(strtoint(x), strtoint(y));
end;
end;