{
The GetEnvironmentStrings function returns the address of the environment block
for the current process. Each environment variable is null terminated.
Die Funktion GetEnvironmentStrings
gibt die Adresse des Umgebungsblocks des aktuellen Prozesses zurück.
Jede Umgebungsvariable ist nullterminiert.
}
procedure TForm1.Button1Click(Sender: TObject);
var
DosEnv: PChar;
begin
Memo1.Lines.Clear;
DosEnv := GetEnvironmentStrings;
while DosEnv^ <> #0 do
begin
Memo1.Lines.Add(StrPas(DosEnv));
Inc(DosEnv, lStrLen(DosEnv) + 1);
end;
FreeEnvironmentStrings(DosEnv);
end;