[已解决]Delphi7怎样注册大漠插件

巅峰西北狼 · 发表于 2015-1-13 11:47:41

马上注册，结交更多好友，享用更多功能^_^

您需要登录才可以下载或查看，没有账号？立即注册

x

向大神们请教一下。Delphi7怎么安装大漠插件呢？

最佳答案

月排行榜 / 总排行榜

Janffer

2015-9-12 11:08:05

本帖最后由 Janffer 于 2015-9-12 11:09 编辑

Delphi7下调用大漠插件
var //全局变量
  Form1: TForm1;
  Ghwnd : Thandle;
  dm:Variant;
  dm_ret:BOOL;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
var
ver:string  ;
begin
//注册大漠插件
  dm :=CreateOleObject('dm.dmsoft'); //调用大漠插件
  ver := dm.Ver;
  if ver='' then winexec('regsvr32 /s dm.dll', SW_show);
  dm_ret := dm.SetPath(dm.GetDir(4)+'\') ;
  ShowMessage(ver);
end;

对了请在uses句下面添加comobj不然无法调用CreateOleObject（）函数

跳转到最佳答案楼层

爱琴海里的星 · 发表于 2015-1-13 19:26:31

不是大神，负责顶起~

不流泪的鱼 · 发表于 2015-9-10 22:07:38

知道怎么调用了么? 不知道回复一个，我再截图告诉你，真心的！

Janffer · 发表于 2015-9-12 11:08:05

这个最佳答案由 Janffer 给出，感谢 Janffer 的回答。

单击隐藏图章

本帖最后由 Janffer 于 2015-9-12 11:09 编辑

Delphi7下调用大漠插件
var //全局变量
  Form1: TForm1;
  Ghwnd : Thandle;
  dm:Variant;
  dm_ret:BOOL;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
var
ver:string  ;
begin
//注册大漠插件
  dm :=CreateOleObject('dm.dmsoft'); //调用大漠插件
  ver := dm.Ver;
  if ver='' then winexec('regsvr32 /s dm.dll', SW_show);
  dm_ret := dm.SetPath(dm.GetDir(4)+'\') ;
  ShowMessage(ver);
end;

对了请在uses句下面添加comobj不然无法调用CreateOleObject（）函数

hwhrr · 发表于 2015-10-13 17:24:57

Janffer 发表于 2015-9-12 11:08
Delphi7下调用大漠插件
var //全局变量
Form1: TForm1;

具体怎么做啊:sad

iceage00 · 发表于 2022-1-24 19:00:59

这个代码，我运行，弹框检测到错误类 EOleSysError，错误信息：‘无效的类别字符串’。进程终止。
怎么弄？

iceage00 · 发表于 2022-1-24 19:10:38

iceage00 发表于 2022-1-24 19:00
这个代码，我运行，弹框检测到错误类 EOleSysError，错误信息：‘无效的类别字符串’。进程终止。
怎么弄 ...

我懂了WC，，，这段程序有个BUG就是你未注册的时候你就让ver:=dm.ver了，就直接出错。这样不行。这个ver=‘’的判断没必要，直接注册就行了。

账号		自动登录	找回密码
密码			立即注册