add Pilz.Runtime.RuntimeInformationsEx & Pilz.OSType

Pilz/Pilz.vbproj

@@ -83,6 +83,8 @@
       <DependentUpon>Settings.settings</DependentUpon>
       <DesignTimeSharedInput>True</DesignTimeSharedInput>
     </Compile>
+    <Compile Include="Runtime\OSType.vb" />
+    <Compile Include="Runtime\RuntimeInformationsEx.vb" />
   </ItemGroup>
   <ItemGroup>
     <EmbeddedResource Include="My Project\Resources.resx">

Pilz/Runtime/OSType.vb

@@ -0,0 +1,9 @@
+Namespace Runtime
+
+    Public Enum OSType
+        Windows
+        Linux
+        OSX
+    End Enum
+
+End Namespace

Pilz/Runtime/RuntimeInformationsEx.vb

@@ -0,0 +1,28 @@
+Imports System.Runtime.InteropServices
+
+Namespace Runtime
+
+    Public Module RuntimeInformationsEx
+
+        Public ReadOnly Property OSPlattform
+            Get
+                Static t As OSType? = Nothing
+
+                If t Is Nothing Then
+                    Select Case True
+                        Case RuntimeInformation.IsOSPlatform(OSPlatform.Windows)
+                            t = OSType.Windows
+                        Case RuntimeInformation.IsOSPlatform(OSPlatform.Linux)
+                            t = OSType.Linux
+                        Case RuntimeInformation.IsOSPlatform(OSPlatform.OSX)
+                            t = OSType.OSX
+                    End Select
+                End If
+
+                Return t
+            End Get
+        End Property
+
+    End Module
+
+End Namespace