UC知道用Delphi调用按键精灵的COM组件问题
来源：百度知道 编辑：UC知道 时间：2024/05/29 19:00:42
按键精灵的QMDispatch.dll里面有一个FindPic函数用来找图片的我想用Delphi调用他
以下代码：
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;
已经Uses了ComObj，这样调用很奇怪，运行代码是时候提示“服务器运行失败”
但当我打开按键精灵后再运行这段代码又正常了。
以下代码：
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;
已经Uses了ComObj，这样调用很奇怪，运行代码是时候提示“服务器运行失败”
但当我打开按键精灵后再运行这段代码又正常了。
Delphi实在不了解……
不过，有按网上说的注册组件过么？
好像是要运行regsvr32
这个是VB里面使用COM组件的方法，希望有所帮助：
http://topic.csdn.net/u/20080221 ... 1-fdfb4948929e.html
应该是还依赖于别的组件或服务，需要你也启动一下