求助 如何调用按键精灵插件dll-CSDN论坛
展开全部
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;
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;
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
