fpcdocs/sysutex/ex93.pp


1
2
3
4
5
6
7
8
9
10
11

{$h+}
program example92;

{ This program demonstrates the
  GetEnvironmentVariable function }

uses sysutils;

begin
   Writeln('PATH is: ',GetEnvironmentVariable('PATH'));
end.