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;