If Reg.OpenKey(KeyName, false) Then Reg.

• WriteExpandString('环境变量名称','环境变量值');