Delphi DLL 取得自身路徑而非呼叫端 EXE 路徑的正確方法

問題場景

Delphi 開發 DLL 供 C# 呼叫時，GetCurrentDir 取得的是呼叫端 EXE 所在目錄，而非 DLL 自身目錄。

解決方案：GetModuleFileName API

function GetDLLPath: string;
var
  Buffer: array[0..MAX_PATH] of Char;
  Len: Integer;
begin
  Len := GetModuleFileName(HInstance, Buffer, MAX_PATH);
  SetString(Result, Buffer, Len);
  Result := ExtractFilePath(Result); // 只要目錄部分
end;

關鍵點解析

C# 呼叫端對應處理

[DllImport("MyDelphi.dll", CharSet = CharSet.Ansi, CallingConvention = CallingConvention.StdCall)]
public static extern void GetDLLPath(StringBuilder path, int capacity);

// 使用
var sb = new StringBuilder(260);
GetDLLPath(sb, sb.Capacity);
string dllDir = Path.GetDirectoryName(sb.ToString());

跨平台注意事項

• Windows：MAX_PATH = 260，長路徑需加 \\?\ 前綴
• 路徑分隔符：Windows 用 \，跨平台建議用 PathDelim 常數
• Unicode：Delphi 2009+ 預設 Unicode，C# CharSet.Ansi 需對應 AnsiString