delphi GetEnvironmentVariable 获取系统PATH环境变量

var

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

  NewPath: String;

begin

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

    NewPath := NewPath + String(OldPath);

memo1.Text:=newpath;