delphi SetEnvironmentVariable 设置系统环境变量

procedure SetPath(const Add: String);

var

  OldPath: array[0..2048] of char;

  NewPath: String;

begin

  NewPath := Add;

  if NewPath <> '' then

    if NewPath[length(NewPath)] <> ';' then

      NewPath := NewPath + ';';

  // PATH environment variable does *not* like quotes in paths...

  // Even if there are spaces in pathnames, it doesn't matter.

  // It splits them up by the ';'

  NewPath := StringReplace(NewPath, '"', '', [rfReplaceAll]);

 GetEnvironmentVariable(PChar('PATH'), @OldPath, SizeOf(OldPath));

    NewPath := NewPath + String(OldPath);

  SetEnvironmentVariable(PChar('PATH'), PChar(NewPath));

end;

获取系统环境变量：http://www.delphiw.com/show/?id=NjM0OA==