add GetExecutablePath()

Pilz.IO/Extensions.cs

@@ -0,0 +1,26 @@
+using Pilz.Runtime;
+using Pilz.Win32.Native;
+using System;
+using System.Collections.Generic;
+using System.Diagnostics;
+using System.Text;
+
+namespace Pilz.IO
+{
+    public static class Extensions
+    {
+        static readonly int MAX_PATH = 255;
+
+        public static string GetExecutablePath(bool checkRealOS = false)
+        {
+            if (RuntimeInformationsEx.IsOSPlatform(OSType.Windows, checkRealOS))
+            {
+                var sb = new StringBuilder(MAX_PATH);
+                Kernel32.GetModuleFileName(IntPtr.Zero, sb, MAX_PATH);
+                return sb.ToString();
+            }
+            else
+                return Process.GetCurrentProcess().MainModule.FileName;
+        }
+    }
+}

Pilz.IO/Pilz.IO.csproj

@@ -86,4 +86,8 @@
       <LastGenOutput>Application.Designer.cs</LastGenOutput>
     </None>
   </ItemGroup>
+  <ItemGroup>
+    <ProjectReference Include="..\Pilz.Win32\Pilz.Win32.vbproj" />
+    <ProjectReference Include="..\Pilz\Pilz.vbproj" />
+  </ItemGroup>
 </Project>

Pilz.Win32/Native/Kernel32.vb

@@ -0,0 +1,16 @@
+Imports System.Runtime.InteropServices
+Imports System.Text
+
+Namespace Native
+
+    Public Class Kernel32
+
+        Private Const LIB_KERNEL32 As String = "kernel32.dll"
+
+        <DllImport(LIB_KERNEL32)>
+        Public Shared Function GetModuleFileName(hModule As IntPtr, lpFilename As StringBuilder, nSize As Integer) As UInteger
+        End Function
+
+    End Class
+
+End Namespace

Pilz.Win32/Native/User32.vb

@@ -4,11 +4,13 @@ Namespace Native
 
     Public Class User32
 
-        <DllImport("user32")>
+        Private Const LIB_USER32 As String = "user32.dll"
+
+        <DllImport(LIB_USER32)>
         Public Shared Function GetWindowRect(ByVal hWnd As IntPtr, ByRef r As RECT) As Boolean
         End Function
 
-        <DllImport("user32.dll")>
+        <DllImport(LIB_USER32)>
         Public Shared Function ChildWindowFromPointEx(ByVal hWndParent As IntPtr, ByVal pt As POINT, ByVal uFlags As UInteger) As IntPtr
         End Function
 

Pilz/Runtime/RuntimeInformationsEx.vb

@@ -26,9 +26,9 @@ Namespace Runtime
             End Get
         End Property
 
-        Public ReadOnly Property RealOSType As OSType
+		Public ReadOnly Property RealOSType As OSType
-            Get
+			Get
-                Static t As OSType? = Nothing
+				Static t As OSType? = Nothing
 
 				If t Is Nothing Then
 
@@ -69,9 +69,13 @@ Namespace Runtime
 				End If
 
 				Return t
-            End Get
+			End Get
-        End Property
+		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