Страница: 1 |
Страница: 1 |
Вопрос: hwnd - получить заголовок
Добавлено: 21.08.04 18:15
Автор вопроса: magish
Я тут с проблемой столкнулся: у меня есть hwnd окна, а как из етого hwnd получить заголовок этого окна??? Напишите API и как её использовать, а то у меня MSDN накрылось Ж*ПОЙ. Всем кто ответит и тем кто не ответит спасибо, а да чуть не забыл: у меня Windows XP.
Ответы
Всего ответов: 7
Номер ответа: 1
Автор ответа:
cresta
Вопросов: 117
Ответов: 1538
Профиль | | #1
Добавлено: 21.08.04 18:42
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 GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
Private Sub Form_Activate()
'KPD-Team 1999
'URL: http://www.allapi.net/
'E-Mail: KPDTeam@Allapi.net
 im MyStr As String
'Create a buffer
MyStr = String(GetWindowTextLength(Me.hwnd) + 1, Chr$(0))
'Get the window's text
GetWindowText Me.hwnd, MyStr, Len(MyStr)
MsgBox MyStr
End Sub
Номер ответа: 2
Автор ответа:
Kodo
Разработчик Offline Client
ICQ: 293048085
Вопросов: 37
Ответов: 457
Профиль | | #2
Добавлено: 21.08.04 18:44
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 GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
Public Function GetCaption(lhWnd As Long) As String
Dim sA As String, lLen As Long
lLen& = GetWindowTextLength(lhWnd&
sA$ = String(lLen&, 0&
Call GetWindowText(lhWnd&, sA$, lLen& + 1)
GetCaption$ = sA$
End Function
Номер ответа: 3
Автор ответа:
Kodo
Разработчик Offline Client
ICQ: 293048085
Вопросов: 37
Ответов: 457
Профиль | | #3
Добавлено: 21.08.04 18:46
Номер ответа: 4
Автор ответа:
cresta
Вопросов: 117
Ответов: 1538
Профиль | | #4
Добавлено: 21.08.04 20:13
Да в основном API и юзаю. Как-то проще, надёжней и понятней
Номер ответа: 5
Автор ответа:
sne
Разработчик Offline Client
ICQ: 233286456
Вопросов: 34
Ответов: 5445
Web-сайт:
Профиль | | #5
Добавлено: 21.08.04 21:12
он имел ввиду бестолковенький сборник использования этих АПИ... Хотя надо признать, что некоторые из примеров там очень удачны
Номер ответа: 6
Автор ответа:
cresta
Вопросов: 117
Ответов: 1538
Профиль | | #6
Добавлено: 21.08.04 21:55
API Guide - это так, на скорую руку если. Если подробно разобраться надо - то в MSDN
Номер ответа: 7
Автор ответа:
Sharp
Лидер форума
ICQ: 216865379
Вопросов: 106
Ответов: 9979
Web-сайт:
Профиль | | #7
Добавлено: 23.08.04 16:15
Да разбираться там особо не в чем...