当前位置: 源码素材网 » Delphi教程 » 详情页

Delphi 在模块内部获得自身路径

  •   时间:2020-01-03
  • 概述:获取路径

Exe程序:application.Exename、ExpandFileName、ParamStr(0),DLL程序:GetModuleFileName,获取Dll自身路径:

方法一:

Function GetDllPath(sDllName:string):string;
var
ModuleFileName:array[0..255] of char;
begin
//{取得dll的实际位置}
GetModuleFileName(GetModuleHandle(sDllName), @ModuleFileName[0], SizeOf(ModuleFileName));
Result := ModuleFileName;
end;

方法二:

Function GetDllPath:string;
var
ModuleName:string;
begin
SetLength(ModuleName, 255);
//取得Dll自身路径
GetModuleFileName(HInstance, PChar(ModuleName), Length(ModuleName));
Result := PChar(ModuleName);

    相关声明:

      若“Delphi 在模块内部获得自身路径”有损您的权益,请告之我们删除内容。
      部分文章来源于网络,版权归原作者所有。