add GetExecutablePath()

2023-08-26 20:34:42 +02:00
parent 926951e268
commit 77cbcd0dcb
5 changed files with 60 additions and 8 deletions
--- a/Pilz.Win32/Native/User32.vb
+++ b/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