بدست آوردن کپشن یه پنجره

[cooper]

با سلام
میدونم که سوالم یکم ناشیانه هست اما ...
هر چی تو سایت گشتم چیزی پیدا نکردم ، دیگه مجبور شدم ..حالا چطوری میشه کپشن یه پنجره ویندوز رو در حالی که فوکوس روی اون پنجره هست بدست آورد ؟
البته بعد از بدست آوردن هندل ....
ممنون میشم کامل جواب بدیدبای

[cooper]

?؟ ?؟ ?؟ ?؟ ?؟ ?؟ ?؟ ?؟ ?؟

[Pedram_HookEx]

فک کنم با این حل میشه

کد:

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 SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long
Private Sub Form_Activate()
     Dim MyStr As String
    'Create a buffer
    MyStr = String(100, Chr$(0))
    'Get the windowtext
    GetWindowText Me.hwnd, MyStr, 100
    'strip the rest of buffer
    MyStr = Left$(MyStr, InStr(MyStr, Chr$(0)) - 1)
    'Triple the window's text
    MyStr = MyStr + MyStr + MyStr
    'Set the new window text
    SetWindowText Me.hwnd, MyStr
End Sub

[Payman62]

کمی خلاصه تر

کد:

Private Declare Function GetWindowText Lib "user32.dll" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function GetWindowTextLength Lib "user32.dll" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
Dim hWndTitle As String
hWndTitle = String(GetWindowTextLength(hwnd), 0)
GetWindowText hwnd, hWndTitle, (GetWindowTextLength(hwnd) + 1

[Pedram_HookEx]

من گفتم اونجوری کاملتره تا اینکه حذفش کنم

[Payman62]

چیو حذف کنی؟

[Pedram_HookEx]

SetWindowText رو میگم

[Scorpion]

are kar kard

[cooper]

ممنون ازتون امید وارم که جبران کنم مرسی