如何获取Com组件的当前路径(100分)

Z

zhener

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-28

• #1

如何获取Com组件的当前路径，
我写了一个delphi的activex组件生成的dll，在dll中要获取当前程序路径，用GetCurrentDir系统函数，但是跟我预测的不一样，
结果为：C:/WINNT/system32，
而我注册Dll的路径是D:/MyProject下；
用什么方法得到实际的DLL的路径？

 

B

bmsr

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-28

• #2

Getdir(0,s);
或
ParamStr(0)

 

铁

铁盒子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-28

• #3

function GetDllName:string;
var
Path:array[0..MAX_PATH-1] of char;
begin

Fillchar(Path,MAX_PATH,0);
GetModuleFileName(FindHInstance(@GetDllName),Path,MAX_PATH);
Result:=Path;
end;

 

Z

zhener

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-28

• #4

上面的大侠，我怎么拷贝下来你的函数不能用呀？@GetDllName是什么意思，前面并没有对它进行定义呀

 

铁

铁盒子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-28

• #5

我的Delphi是7.0可以的,@GetDllName,就是函数自己的地址.这个函数不要放在类中,@GetDllName可以替换为一个全局变量的地址.

 

Z

zhener

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-28

• #6

谢谢！答案接受了