You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
160 lines
7.0 KiB
160 lines
7.0 KiB
Option Strict On
|
|
Imports System.Runtime.InteropServices
|
|
Imports System.Text
|
|
|
|
' Class to wrap up Windows 32 API constants and functions.
|
|
Public Class Win32API
|
|
<StructLayout(LayoutKind.Sequential)> _
|
|
Public Structure OSVersionInfo
|
|
Public OSVersionInfoSize As Integer
|
|
Public majorVersion As Integer
|
|
Public minorVersion As Integer
|
|
Public buildNumber As Integer
|
|
Public platformId As Integer
|
|
<MarshalAs(UnmanagedType.ByValTStr, SizeConst:=128)> _
|
|
Public versionString As String
|
|
End Structure
|
|
|
|
<StructLayout(LayoutKind.Sequential)> _
|
|
Public Structure SECURITY_ATTRIBUTES
|
|
Public nLength As Integer
|
|
Public lpSecurityDescriptor As Integer
|
|
Public bInheritHandle As Integer
|
|
End Structure
|
|
|
|
Public Const GWL_EXSTYLE As Integer = (-20)
|
|
Public Const SW_Maximize As Integer = 3
|
|
Public Const SW_Minimze As Integer = 2
|
|
Public Const GW_OWNER As Integer = 4
|
|
Public Const SW_RESTORE As Integer = 9
|
|
Public Const SW_SHOW As Integer = 5
|
|
Public Const WS_EX_TOOLWINDOW As Integer = &H80
|
|
Public Const WS_EX_APPWINDOW As Integer = &H40000
|
|
Private Shared Function GetWindowThreadProcessId(ByVal hwnd As IntPtr, _
|
|
ByRef lpdwProcessId As Integer) As Integer
|
|
End Function
|
|
|
|
|
|
Public Declare Function CreateDirectory Lib "kernel32" _
|
|
Alias "CreateDirectoryA" (ByVal lpPathName As String, _
|
|
ByVal lpSecurityAttributes _
|
|
As SECURITY_ATTRIBUTES) As Boolean
|
|
|
|
|
|
Public Delegate Function EnumWindowsCallback(ByVal hWnd As Integer, _
|
|
ByVal lParam As Integer) As Boolean
|
|
|
|
Public Declare Function EnumWindows Lib "user32.dll" _
|
|
Alias "EnumWindows" (ByVal callback As EnumWindowsCallback, _
|
|
ByVal lParam As Integer) As Integer
|
|
|
|
<DllImport("user32.dll", EntryPoint:="EnumWindows", SetLastError:=True, _
|
|
CharSet:=CharSet.Ansi, ExactSpelling:=True, _
|
|
CallingConvention:=CallingConvention.StdCall)> _
|
|
Public Shared Function EnumWindowsDllImport(ByVal callback As EnumWindowsCallback, _
|
|
ByVal lParam As Integer) As Integer
|
|
End Function
|
|
|
|
Public Declare Auto Function FindWindow Lib "user32.dll" _
|
|
Alias "FindWindow" (ByVal lpClassName As String, _
|
|
ByVal lpWindowName As String) As Integer
|
|
|
|
Public Declare Auto Function FindWindowAny Lib "user32.dll" _
|
|
Alias "FindWindow" (ByVal lpClassName As Integer, _
|
|
ByVal lpWindowName As Integer) As Integer
|
|
|
|
Public Declare Auto Function FindWindowNullClassName Lib "user32.dll" _
|
|
Alias "FindWindow" (ByVal lpClassName As Integer, _
|
|
ByVal lpWindowName As String) As Integer
|
|
|
|
Public Declare Auto Function FindWindowNullWindowCaption Lib "user32.dll" _
|
|
Alias "FindWindow" (ByVal lpClassName As String, _
|
|
ByVal lpWindowName As Integer) As Integer
|
|
|
|
Public Declare Function GetActiveWindow Lib "user32.dll" () As IntPtr
|
|
|
|
Public Declare Function GetClassName Lib "user32.dll" _
|
|
Alias "GetClassNameA" (ByVal hwnd As Integer, _
|
|
ByVal lpClassName As String, _
|
|
ByVal cch As Integer) As Integer
|
|
|
|
Public Declare Function GetDiskFreeSpace Lib "kernel32" _
|
|
Alias "GetDiskFreeSpaceA" (ByVal lpRootPathName As String, _
|
|
ByRef lpSectorsPerCluster As Integer, _
|
|
ByRef lpBytesPerSector As Integer, _
|
|
ByRef lpNumberOfFreeClusters As Integer, _
|
|
ByRef lpTotalNumberOfClusters As Integer) As Integer
|
|
|
|
|
|
Public Declare Function GetDiskFreeSpaceEx Lib "kernel32" _
|
|
Alias "GetDiskFreeSpaceExA" (ByVal lpRootPathName As String, _
|
|
ByRef lpFreeBytesAvailableToCaller As Integer, _
|
|
ByRef lpTotalNumberOfBytes As Integer, _
|
|
ByRef lpTotalNumberOfFreeBytes As UInt32) As Integer
|
|
|
|
Public Declare Function GetDriveType Lib "kernel32" _
|
|
Alias "GetDriveTypeA" (ByVal nDrive As String) As Integer
|
|
|
|
Public Declare Function GetParent Lib "user32.dll" _
|
|
Alias "GetParent" (ByVal hwnd As Integer) As Integer
|
|
|
|
|
|
Declare Ansi Function GetVersionEx Lib "kernel32.dll" _
|
|
Alias "GetVersionExA" (ByRef osvi As OSVersionInfo) As Boolean
|
|
|
|
Public Declare Function GetWindow Lib "user32.dll" _
|
|
Alias "GetWindow" (ByVal hwnd As Integer, _
|
|
ByVal wCmd As Integer) As Integer
|
|
|
|
Public Declare Function GetWindowLong Lib "user32.dll" _
|
|
Alias "GetWindowLongA" (ByVal hwnd As Integer, _
|
|
ByVal nIndex As Integer) As Integer
|
|
|
|
Public Declare Sub GetWindowText Lib "user32.dll" _
|
|
Alias "GetWindowTextA" (ByVal hWnd As Integer, _
|
|
ByVal lpString As StringBuilder, _
|
|
ByVal nMaxCount As Integer)
|
|
|
|
Public Declare Function IsIconic Lib "user32.dll" _
|
|
Alias "IsIconic" (ByVal hwnd As Integer) As Boolean
|
|
|
|
Public Declare Function IsPwrHibernateAllowed Lib "Powrprof.dll" _
|
|
Alias "IsPwrHibernateAllowed" () As Integer
|
|
|
|
Public Declare Function IsWindowVisible Lib "user32.dll" _
|
|
Alias "IsWindowVisible" (ByVal hwnd As Integer) As Boolean
|
|
|
|
Public Declare Function SetForegroundWindow Lib "user32.dll" _
|
|
Alias "SetForegroundWindow" (ByVal hwnd As Integer) As Integer
|
|
|
|
Public Declare Function SetActiveWindow Lib "user32.dll" _
|
|
Alias "SetActiveWindow" (ByVal hwnd As Integer) As Integer
|
|
|
|
|
|
Public Declare Function SetSuspendState Lib "Powrprof.dll" _
|
|
Alias "SetSuspendState" (ByVal Hibernate As Integer, _
|
|
ByVal ForceCritical As Integer, _
|
|
ByVal DisableWakeEvent As Integer) As Integer
|
|
|
|
Public Declare Function ShowWindow Lib "user32.dll" _
|
|
Alias "ShowWindow" (ByVal hwnd As Integer, ByVal nCmdShow As Integer) As Integer
|
|
|
|
Declare Function SwapMouseButton Lib "user32.dll" _
|
|
Alias "SwapMouseButton" (ByVal bSwap As Integer) As Integer
|
|
|
|
Public Declare Function BringWindowToTop Lib "user32" Alias "BringWindowToTop" (ByVal hwnd As Long) As Long
|
|
|
|
'Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As IntPtr, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
|
|
|
|
'Public Declare Function ShowScrollBar Lib "user32" (ByVal hwnd As Long, ByVal wBar As Long, ByVal bShow As Long) As Long
|
|
'Public Const SB_VERT As Long = 1
|
|
'Public Const SB_HORZ As Long = 0
|
|
|
|
Public Declare Function SetParent Lib "user32" Alias "SetParent" (ByVal hWndChild As IntPtr, ByVal hWndNewParent As IntPtr) As System.IntPtr
|
|
|
|
Public Declare Function GetWindowRect Lib "user32" Alias "GetWindowRect" (ByVal hWnd As Integer, ByRef lpRect As Rectangle) As Long
|
|
|
|
|
|
|
|
End Class
|