Вот скачал софту Winspector - очень полезная софта!
Прсмотрел с ее помощью классы, программы Paint.
Нашел эти:
MSPaintApp;
AfxFrameOrView42u;
msctls_statusbar32;
AfxControlBar42u;
Полазил в сети и нашел пример, как получать имя класса программы:
- Код: Выделить всё
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_Load()
Dim WinWnd As Long, Ret As String, RetVal As Long, lpClassName As String
'Наша программа, Paint
Ret = "Безымянный - Paint"
'Ищем handle нашей программы
WinWnd = FindWindow(vbNullString, Ret)
'Создаем buffer
lpClassName = Space(256)
'Возвращаем класс программы
RetVal = GetClassName(WinWnd, lpClassName, 256)
'Выводим на экран имя класса
MsgBox "Classname: " + Left$(lpClassName, RetVal)
End Sub
Но пример выводит на экран только имя главного класса нужной программы, а как бы вывести (например в ListBox) имена всех классов нужной программы?
