From: pclaude@iccu6.ipswichcity.qld.gov.au (Claude Pellerin)
Subject: [delphi] Accessing DOS Environment data from Delphi - getenv.dpr [01/01]
Date: Wed, 14 Jun 1995 14:58:03 +1000

I saw someone asking how to get DOS environment variables from Delphi. 
The little Project attached shows how to list all the Environment 
variables quite simply.
Hope this helps...
Claude.

BEGIN -- Cut Here -- cut here
program Getenv;

uses WinCrt,
  WinProcs;
var
 ptr: PChar;
 Done: BOOLEAN;
begin
 ptr := GetDOSEnvironment;
 Done := FALSE;
 WHILE NOT Done DO
 BEGIN
  IF ptr^ = #0 THEN
  BEGIN
   Writeln;
   INC(ptr);
   IF ptr^ = #0 THEN Done := TRUE
   ELSE Write(ptr^);
  END
  ELSE Write(ptr^);
  INC(ptr);
 END;
end.
 
END -- Cut Here -- cut here