28
2020
03

如何模块内部获得自身路径? Exe程序: DLL程序:

答:

    exe:

      application.Exename

      ExpandFileName

    Dll:

1)方法一:

Function GetDllPath(sDllName:string):string;

var

  ModuleFileName:array[0..255] of char; 

begin

  //{取得dll的实际位置}

  GetModuleFileName(GetModuleHandle(sDllName), @ModuleFileName[0], SizeOf(ModuleFileName));

  Result := ModuleFileName;

end;

2)方法二:

Function GetDllPath:string;

var

  ModuleName:string;

begin

  SetLength(ModuleName, 255);

    //取得Dll自身路径

   GetModuleFileName(HInstance, PChar(ModuleName), Length(ModuleName));

   Result := PChar(ModuleName);

end;

« 上一篇 下一篇 »

发表评论:

◎欢迎参与讨论,请在这里发表您的看法、交流您的观点。