怎样取得DLL文件所在位置？(50分)

A

amourz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-23

• #1

extractfilepath(application.exename)对DLL无效。用extractfilepath('xxx.dll')取出的
是空值。我怎么才能取得DLL的所在目录呢？

 

D

dxpjj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-23

• #2

用extractfilepath(paramstr(0))有效

 

L

ligia

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-23

• #3

FUNCTION FkGetDllFile():STRING;
VAR bTempCHAR;
BEGIN
bTemp:=PCHAR(AllocMem(1024+1))
GetModuleFileName(0,bTemp,1024);
Result:=STRING(bTemp);
FreeMem(bTemp);
END;

用 ExtractFilePath(FkGetDllFile());

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-23

• #4

程序执行时是动态查找 DLL文件的。
首先在 system 目录下找，
然后在 windows 目录下找
最后在 程序执行目录中找。
你也可以按这种顺序来判断是否有相应的文件。

控件类的 DLL 应该在注册表中找。

 

白

白河愁

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-23

• #5

function ReadDLLPath : String;
var
DLLPath : String;
FN: array[0..MAX_PATH- 1] of char;
begin
SetString(DLLPath, FN, GetModuleFileName(hInstance, FN, SizeOf(FN)));
DLLPath := ExtractFileDir(DLLPath);
if Copy(DLLPath,Length(DLlPath),1) <> '/' then
DLLPath := DLLPath+'/';
Result := DLLPath;
end;

 

C

coolbaby

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-23

• #6

提供一下思路：
getmodulefilename是dll宿主得文件名
再ExtractFileDir(上面得返回值)就可以了

 

王

王公子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-23

• #7

t一下

 

A

amourz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-24

• #8

多人接受答案了。