Заголовок из hwnd?

[skord]

Кто-нибудь знает как получить заголовок окна из его hwnd? Заранее спасиба.

[Amed]

Код: Выделить всё

Option Explicit
Private Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd 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 Sub Form_Load()
Dim tl As Long
Dim cap As String
tl = GetWindowTextLength(Me.hwnd) + 1

cap = Space$(tl)

GetWindowText Me.hwnd, cap, tl
MsgBox cap
End Sub