Delphi 解析系统环境变量

最新推荐文章于 2020-05-03 22:58:13 发布

1361976860

最新推荐文章于 2020-05-03 22:58:13 发布

阅读量224

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/yzryc/p/6276985.html

本文介绍了一个用于展开环境变量的Delphi函数ExpandEnvironment。通过该函数可以将如'%systemroot%'等环境变量转换为其实际路径，例如'C:Windows'。文章还提供了一个使用示例，展示了如何将编辑框中的环境变量文本转换为实际路径。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

// http://www.outofmemory.cn
function ExpandEnvironment(const strValue: string): string;
var
  chrResult: array[0..1023] of Char;
  wrdReturn: DWORD;
begin
  wrdReturn := ExpandEnvironmentStrings(PChar(strValue), chrResult, 1024);
  if wrdReturn = 0 then
    Result := strValue
  else 
  begin
    Result := Trim(chrResult);
  end;
end;
   
 使用范例
   EditPath.Text := ExpandEnvironment('%systemroot%\Temp\');
在windows下输入如下结果
 C:\Windows\Temp\