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

Delphi7怎样注册大漠插件

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

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

不是大神，负责顶起~

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

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

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（）函数

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=‘’的判断没必要，直接注册就行了。
页: [1]
查看完整版本: Delphi7怎样注册大漠插件