delphi如何获取DLL所在的目录

Posted 2023-05-01

delphi如何获取DLL所在的目录

参考技术A 这个方法可以在dll中获取自身所处的路径
Function GetDllPath:string;
var
ModuleName:string;
begin
SetLength(ModuleName, 255);
//取得Dll自身路径
GetModuleFileName(HInstance, PChar(ModuleName), Length(ModuleName));
Result := PChar(ModuleName);
end;

linux shell脚本如何获取“当前工作路径”，“执行脚本所在路径”，“执行脚本所在路径和执行路径的相对路径”？（当前目录脚本目录脚本路径）

test_path.sh

#!/bin/bash

# 当前工作路径
current_working_path="$(pwd)"
echo "current_working_path = $current_working_path"

# 当前脚本所在路径（如在父脚本下执行子脚本，该方法获取的为父脚本路径）
current_script_location="$(cd "$(dirname "$0")"; pwd)"
echo "current_script_location = $current_script_location"

# 当前脚本所在路径与工作路径的相对路径
relative_script_to_working_path="$(dirname $0)"
echo "relative_script_to_working_path = $relative_script_to_working_path"

# echo "pwd: $(pwd)"

运行示例 ：

20230209 注意脚本包含时的路径（父子脚本）

参考文章：linux shell脚本获取脚本目录时，$(dirname“$BASH_SOURCE[0]“)与$(dirname $0)有什么区别？