You can make a call to the Windows API function GetDOSEnvironment() under Win 6 or the GetEnvironmentStrings() function under Win32.

Example:

procedure TForm .Button Click(Sender: TObject); var p : pChar; begin Memo .Lines.Clear; Memo .WordWrap := false; {$IFDEF WIN32} p := GetEnvironmentStrings; {$ELSE} p := GetDOSEnvironment; {$ENDIF} while p^ <> #0 do begin Memo .Lines.Add(StrPas(p)); inc(p, lStrLen(p) + ); end; {$IFDEF WIN32} FreeEnvironmentStrings(p); {$ENDIF} end; 7/ 6/98 4:3 :28 PM