Environment

Language: Oxygene, Platform: Echoes, Category: Command Line
https://github.com/remobjects/ElementsSamples/tree/master/Oxygene/Echoes/Command Line/Environment

• Environment
  • References
    • Mono.Posix
    • mscorlib
    • System
    • System.Data
    • System.Xml
    • Elements
  • Source Files
    • Program.pas
    • Properties\AssemblyInfo.pas
    • Properties\Resources.Designer.pas
    • Properties\Settings.Designer.pas
  • Other Files
    • Properties\App.ico
    • Properties\Resources.resx
    • Properties\Settings.settings

Program.pas

namespace ConsoleApplication1;

//Sample .NET console application
//by Brian Long, 2009

//App is compiled against .NET assemblies and reports various bits of environment information
//Does Win32/Unix differentiation using directory separator check
//Does Linux/OS X differentiation using a Mono class (from Mono.Posix.dll) containing Unix calls

interface

type
  ConsoleApp = class
  private
    class method IsWindows: Boolean;
    //Note - only call these methods if IsWindows has returned False!
    class method IsLinux: Boolean;
    class method IsOSX: Boolean;
    class Method IsMono: Boolean;
    class Method IsDotNet: Boolean;
  public
    class method Main;
  end;

implementation

class method ConsoleApp.IsWindows: Boolean;
begin
  result := RemObjects.Elements.RTL.Environment.OS = RemObjects.Elements.RTL.OperatingSystem.Windows;
end;

class method ConsoleApp.IsLinux: Boolean;
begin
  result := RemObjects.Elements.RTL.Environment.OS = RemObjects.Elements.RTL.OperatingSystem.Linux;
end;

class method ConsoleApp.IsOSX: Boolean;
begin
  result := RemObjects.Elements.RTL.Environment.OS = RemObjects.Elements.RTL.OperatingSystem.macOS;
end;

class method ConsoleApp.IsMono: Boolean;
begin
  exit &Type.GetType('Mono.Runtime') <> nil
end;

class method ConsoleApp.IsDotNet: Boolean;
begin
  exit not IsMono()
end;

class method ConsoleApp.Main;
begin
  Console.WriteLine(String.Format('Command line: {0}', Environment.CommandLine));
  Console.WriteLine(String.Format('Current directory: {0}', Environment.CurrentDirectory));
  Console.WriteLine(String.Format('#Processors: {0}', Environment.ProcessorCount));
  Console.WriteLine(String.Format('User name: {0}', Environment.UserName));
  Console.WriteLine(String.Format('Machine name: {0}', Environment.MachineName));
  Console.WriteLine(String.Format('User domain: {0}', Environment.UserDomainName));
  Console.WriteLine(String.Format('Reported OS Version summary: {0}', Environment.OSVersion.VersionString));
  Console.WriteLine(String.Format('Reported OS platform: {0}', Environment.OSVersion.Platform));
  Console.WriteLine(String.Format('Reported OS Version: {0}', Environment.OSVersion.Version));
  Console.WriteLine(String.Format('Reported OS Service Pack: {0}', Environment.OSVersion.ServicePack));
  Console.Write('Actual platform: ');
  if IsWindows then
    Console.WriteLine(String.Format('A Windows platform ({0})', Environment.OSVersion.Platform))
  else if IsLinux then
    Console.WriteLine('Linux')
  else
    Console.WriteLine('Mac OS X');
  Console.WriteLine(String.Format('Execution engine version: {0}', Environment.Version));
  Console.Write('Running .NET or Mono: ');
  if &Type.GetType('Mono.Runtime') = nil then
    Console.WriteLine('.NET')
  else
    Console.WriteLine('Mono');
  Console.WriteLine(String.Format('System dir: {0}', Environment.SystemDirectory));
  Console.WriteLine(String.Format('Application Data folder: {0}', Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData)));
  Console.WriteLine(String.Format('Desktop folder: {0}', Environment.GetFolderPath(Environment.SpecialFolder.Desktop)));
  Console.WriteLine(String.Format('Local Application Data folder: {0}', Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData)));
  Console.WriteLine(String.Format('My Documents folder: {0}', Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)));
  Console.WriteLine(String.Format('My Pictures folder: {0}', Environment.GetFolderPath(Environment.SpecialFolder.MyPictures)));
  Console.WriteLine(String.Format('My Music folder: {0}', Environment.GetFolderPath(Environment.SpecialFolder.MyMusic)));
  Console.WriteLine(String.Format('Personal folder: {0}', Environment.GetFolderPath(Environment.SpecialFolder.Personal)));
  Console.ReadLine();
end;

end.