| Вопрос: ПОМОГИТЕ, PLEASE! | Добавлено: 21.10.07 16:30 |
Автор вопроса:  Агент
|
|
Нужно узнать класс окна, зная его hWnd.
Если можно, напишите имя класса рабочего стола, панели задач и папки. |
| Ответы | Всего ответов: 3 |
|
Номер ответа: 1 Автор ответа:  Programmer Вопросов: 71 Ответов: 246 |
Профиль | | #1 | Добавлено: 21.10.07 20:06 |
|
юзай API GetClassName:
Private Function fGetClassName(Hwnd As Long)
Dim strBuffer As String Dim intCount As Integer strBuffer = String$(mconMAXLEN - 1, 0) intCount = apiGetClassName(Hwnd, strBuffer, mconMAXLEN) If intCount > 0 Then fGetClassName = Left$(strBuffer, intCount) End If End Function |
||
|
Номер ответа: 2 Автор ответа: ProgrammerВопросов: 71 Ответов: 246 |
Профиль | | #2 | Добавлено: 21.10.07 20:07 |
|
да, забыл объявление в начале формы:
Private Declare Function apiGetClassName Lib "user32" Alias "GetClassNameA" (ByVal Hwnd As Long, ByVal lpClassname As String, ByVal nMaxCount As Long) As Long
Private Const mconMAXLEN = 255 |
||
|
Номер ответа: 3 Автор ответа: Агент Вопросов: 3 Ответов: 16 |
Профиль | | #3 | Добавлено: 22.10.07 15:45 |
| Спасибо. А то я уже не знал даже что делать. | ||
Страница: 1 |