delphi - 如何使用系统路径变量从路径获取绝对路径？

Question

有没有一种简单的方法可以将带有系统路径变量的路径转换为绝对路径？

所以%ProgramFiles%\Internet Explorer\hmmapi.dll变成C:\Program Files\Internet Explorer\hmmapi.dll

我想知道是否有一个 API 调用可以做到这一点，或者我是否必须这样做并检测 %..% 序列并用相应的环境变量替换它们？

Answer 1

您可以使用 WinAPI 函数ExpandEnvironmentStrings：

function ExpandEnvStr(const szInput: string): string;
  const
    MAXSIZE = 32768;
  begin
    SetLength(Result,MAXSIZE);
    SetLength(Result,ExpandEnvironmentStrings(pchar(szInput),
      @Result[1],length(Result)) - 1);
  end;