fpc/docs/unixex/ex39.pp

Program Example39;

{ Program to demonstrate the GetDomainName function. }

Uses Unix;

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