将路径字符串中的环境变量，替换为真正的路径

var
  s: array [0..MAX_PATH] of char;
begin
  ExpandEnvironmentStrings('%SystemRoot%\System32\$winnt$.inf', s, MAX_PATH);
  ShowMessage(s);
  //执行结果：s = C:\WINDOWS\System32\$winnt$.inf
end;