add GetExecutablePath()

Pilz/Runtime/RuntimeInformationsEx.vb

@@ -26,9 +26,9 @@ Namespace Runtime
             End Get
         End Property
 
-        Public ReadOnly Property RealOSType As OSType
-            Get
-                Static t As OSType? = Nothing
+		Public ReadOnly Property RealOSType As OSType
+			Get
+				Static t As OSType? = Nothing
 
 				If t Is Nothing Then
 
@@ -69,9 +69,13 @@ Namespace Runtime
 				End If
 
 				Return t
-            End Get
-        End Property
+			End Get
+		End Property
 
-    End Module
+		Public Function IsOSPlatform(os As OSType, checkRealOS As Boolean) As Boolean
+			Return If(checkRealOS, RealOSType, OSType) = os
+		End Function
+
+	End Module
 
 End Namespace