[Back to DELPHI SWAG index]  [Back to Main SWAG index]  [Original]

{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.}

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.

[Back to DELPHI SWAG index]  [Back to Main SWAG index]  [Original]