fpcdocs/olinuxex/ex39.pp


1
2
3
4
5
6
7
8
9

Program Example39;

{ Program to demonstrate the GetDomainName function. }

Uses oldlinux;

begin
  Writeln ('Domain name of this machine is : ',GetDomainName);
end.