如何用代码设置系统环境变量 比如path

Question

这个函数怎么使用
  ExpandEnvironmentStrings

Answer 1

不知你想要的是什么，如下：
var
  MainPath: String;procedure TMainForm.FormCreate(sender: TObject);
begin
  GetMainPath;
end;procedure TMainForm.GetMainPath;
begin
  MainPath := ExtractFilePath(Application.ExeName);
end;

Answer 2

不是的,我需要在系统变量path中添加一个路径,但是用代码我总是实现不了
    找到一个API函数，但不会改写成DELPHI 的代码，help

Answer 3

ExpandEnvironmentStrings只是读取环境变量吧。
WinExec('command.com path=youvar');如何？

Answer 4

这个方法不错，可以解决问题，不过最好是
   能环境变量上PATH能加上我的一个路径，

Answer 5

现在还是不可以，PATH加入路径是必须的一项。我要做其他事情，如注册文件之类，
  哪位能环境变量上PATH能加上我的一个路径。

Answer 6

我想做的是系统环境变量设置
   系统环境变量有一个path ，我们的系统路径全部包含再PATH中，我现在只是要在原来的
路径上再加上一个路径。
   比如右击‘我的电脑’－>属性—>高级-->环境变量—>path 
  添加一个路径，现在我需要用代码实现，如何做？？？？