Added OS field to configurations

This commit is contained in:
Michael J. Seiferling
2019-02-06 10:25:15 -06:00
parent 030d8fca30
commit 5ca1d2f5a8
10 changed files with 243 additions and 94 deletions
+8
View File
@@ -259,6 +259,14 @@ Public Class mgrCommon
Return False
End Function
Public Shared Function GetCurrentOS() As clsGame.eOS
If IsUnix() Then
Return clsGame.eOS.Linux
Else
Return clsGame.eOS.Windows
End If
End Function
Public Shared Function IsElevated() As Boolean
Dim oID As WindowsIdentity = WindowsIdentity.GetCurrent
Dim oPrincipal As New WindowsPrincipal(oID)