首部 function GetEnvironmentVariable(const Name: string): string; overload; $[SysUtils.pas
功能 返回过程环境变量
说明 配合SetEnvironmentVariable函数使用
参考 function Windows.GetEnvironmentVariable
例子 Edit1.Text := GetEnvironmentVariable(Edit2.Text);
///////Begin GetEnvironmentVariable
procedure TForm1.Button1Click(Sender: TObject);
begin
SetEnvironmentVariable(PChar(Edit2.Text), PChar(Edit3.Text));
Edit1.Text := GetEnvironmentVariable(Edit2.Text);
end;
///////End GetEnvironmentVariable