获取当前活动窗口句柄和标题-白红宇

获取当前活动窗口句柄和标题

阅读量：4116 次

发布时间：2019-05-25

本文共 2274 字，大约阅读时间需要 7 分钟。

获得鼠标指针位置函数

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

'获得鼠标指针下窗口句柄的函数

Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long

'获取标题的函数，但不能获取文本框的内容

'Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long

'设置窗体位置函数

Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

'获得窗口类名函数

Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long

Private Type POINTAPI

x As Long

y As Long

End Type

Const StringLen = 80

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Const WM_GETTEXT = &HD

Private Sub Form_Click() '这里是窗体点击置顶和取消

Dim CancelVal As Long

Static Choose As Integer

If Choose = 0 Then

CancelVal = SetWindowPos(Me.hwnd, -1, 0, 0, 0, 0, 3)

Me.Caption = "已经成为顶层窗体"

Choose = 1

Else

CancelVal = SetWindowPos(Me.hwnd, -2, 0, 0, 0, 0, 3)

Me.Caption = "已还原为一般窗口"

Choose = 0