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

Question

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

Answer 1

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

Answer 2

你用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或是应用程序的路径。