| Вопрос: Как получить имя класса | Добавлено: 29.07.04 18:22 |
Автор вопроса:  De.MON
|
| Как получить имя класса объекта (свойства .Hwnd нет, т.е. API-функция GetClassName не подходит)? |
| Ответы | Всего ответов: 5 |
|
Номер ответа: 1 Автор ответа: sne Разработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #1 | Добавлено: 29.07.04 18:25 |
 )))))))
Интересный ты
А что тогде есть !? |
||
|
Номер ответа: 2 Автор ответа: CyRax  Разработчик Offline Client ICQ: 204447456 Вопросов: 180 Ответов: 4229 |
Web-сайт: Профиль | | #2 | Добавлено: 29.07.04 21:30 |
|
Если у объекта нет окна, то через API никак.
Может у него какое свойство есть? |
||
|
Номер ответа: 3 Автор ответа: dNW Вопросов: 30 Ответов: 683 |
Профиль | | #3 | Добавлено: 30.07.04 07:31 |
|
Без hwnd про работу с чужими окнами забудь.
Нужно найти хэндл через FindWindow пл заголовку, а потом действительно придется GetClassName |
||
|
Номер ответа: 4 Автор ответа: De.MON Вопросов: 8 Ответов: 9 |
Профиль | | #4 | Добавлено: 31.07.04 00:18 |
| Были бы окна - не было бы проблем... А можно как-то получить hwnd объекта? Никаких полезных в этом плане свойств он не предоставляет. | ||
|
Номер ответа: 5 Автор ответа: dNWВопросов: 30 Ответов: 683 |
Профиль | | #5 | Добавлено: 31.07.04 10:08 |
|
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long Private Sub Form_Click() Dim a As Long a=FindWindow(vbNullString,"Заголовок нужного окна (caption)" Dim x As String * 50 GetClassName a,x,50 MsgBox "Имя класса " & x End Sub |
||
Страница: 1 |