• Home
 · 
• Windows API Call/Explanation
 · 
• Get a window's title text

Get a window's title text

Get a window's title text

API Declarations


Dim blnChoose As Boolean

Private Declare Function SetCapture Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ReleaseCapture Lib "user32" () 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 ClientToScreen Lib "user32" (ByVal hwnd As Long, lpPoint As POINTAPI) As Long

'Put this in a module/////////////////////////////////////////////////////////
Type POINTAPI
x As Long
y As Long
End Type
//////////////////////////////////////////////////////////////////////////////




Rate Get a window's title text

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

    blnChoose = True
    intRetVal = SetCapture(hwnd)
End Sub

Private Sub Form_Load()
    
    blnChoose = False
    
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
    Dim window As Long
    Dim buffer As String * 1024
    Dim ptPoint As POINTAPI
   
    If blnChoose Then
    
        ptPoint.x = x
        ptPoint.y = y
        retval = ClientToScreen(hwnd, ptPoint)

        window = WindowFromPoint(ptPoint.x, ptPoint.y)
        lngRetVal = GetWindowText(window, buffer, 1024)
        Text1.Text = buffer
    End If
End Sub