<< Click to Display Table of Contents >> Navigation:  EasyDotNet documentation > Classes > TEnvironment class > Example

!== TEnvironment example

 

env                 TEnvironment

 

EnvG                 GROUP,PRE(EnvG)

MachineName           STRING(32)

Is64BitOS             BYTE

ProcessorCount         LONG

UserDomainName         STRING(32)

UserName               STRING(32)

UserInteractive       BYTE

VersionString         STRING(64)

                    END

 

LogicalDrivesQ       QUEUE,PRE(LogicalDrivesQ)

Drive                 STRING(20)

                    END

 

 CODE

EnvG:MachineName = env.MachineName()

EnvG:Is64BitOS = env.Is64BitOperatingSystem()

EnvG:ProcessorCount = env.ProcessorCount()

EnvG:UserDomainName = env.UserDomainName()

EnvG:UserName = env.UserName()

EnvG:UserInteractive = env.UserInteractive()

EnvG:VersionString = env.VersionString()

FREE(LogicalDrivesQ)

env.GetLogicalDrives(LogicalDrivesQ)