如何在不生成exe文件而只是编译成dll文件中取出指定文件的路径？

[goldbrighten]

我在做webservice时，服务端用*.dll/soap的文件，可是用绝对路径总不太好，而用相对路径却不能象exe文件时可以通过GetCurrentDir或ExtractFileDir来取出，有人知道该怎么办吗？

[westfly]

用GetModuleFileName

[很土]

当前路径 := ExtractFileDir(ParamStr(0)); // 得到调用 Dll 程序的路径。

[短歌如风]

如果你用了COM对象(或Automation Object,或Remote DataModule)可以用ComServer.ServerFileName.(ComServer在ComServ单元).

[haohaisen]

up

[black_fox]

你用GetCurrentDir得出的宿主的程序路径。当然不对。给你一个函数

{******************************************************************
函数: GetCurrentDirEx
功能: 获取配置文件
返回: String
入口: 无
****************************************************************** }

FUNCTION GetCurrentDirEx(): ansistring;
VAR
ModuleFileName : ARRAY[0..MAX_PATH] OF Char;
BEGIN
GetModuleFileName(HInstance, @ModuleFileName[0], MAX_PATH);
//取得当前文件名
result := IncludeTrailingBackslash(ExtractFilePath (ModuleFileName)) ;
END;
可以取得当前DLL或是应用程序的路径。