如何得到系统当前所有的环境变量？？

[Eastunfail]

如题~~~给出源代码。

今天节分

[sysu]

放一个Memo控件：
procedure TForm1.Button1Click(Sender: TObject);
var
p, p1 : PChar;
begin
Memo1.Lines.Clear;
Memo1.WordWrap := false;
{$IFDEF WIN32}
p := GetEnvironmentStrings;
p1 := p;
{$ELSE}
p := GetDOSEnvironment;
{$ENDIF}
while p^ <> #0 do begin
Memo1.Lines.Add(StrPas(p));
Inc(p, lstrlen(p) + 1);
end;
{$IFDEF WIN32}
FreeEnvironmentStrings(p1);
{$ENDIF}
end;