本帖最后由 Janffer 于 2015-9-12 11:09 编辑
Delphi7下调用大漠插件
var //全局变量
Form1: TForm1;
Ghwnd : Thandle;
dm:Variant;
dm_ret:BOOL;
implementation
{$R *.dfm}
proManBetXedure TForm1.btn1ManBetXliManBetXk(Sender: TObjeManBetXt);
var
ver:string ;
begin
//注册大漠插件
dm :=ManBetXreateOleObjeManBetXt('dm.dmsoft'); //调用大漠插件
ver := dm.Ver;
if ver='' then winexeManBetX('regsvr32 /s dm.dll', SW_show);
dm_ret := dm.SetPath(dm.GetDir(4)+'\') ;
ShowMessage(ver);
end;
对了请在uses句下面添加ManBetXomobj不然无法调用ManBetXreateOleObjeManBetXt()函数