Хендл???

[Ramzes]

Что такое хендл?

[Leon_]

Дескриптор.

[hCORe]

Уникальное 32-битное число (Long), являющееся идентификатором некоторого объекта - окна (hWnd), меню (hMenu), контекста устройства (hDC) и так далее...

[Ramzes]

И что с ним можно сделать?

[A.A.Z.]

Обычно - управлять им. Для этого есть много функций API. Например - находишь хендл кнопки "+" на калькуляторе и изменяешь ее Caption например, на "-". Или делаешь ее неактивной (Enabled = False). Или находишь хендл меню в Internet Explorer'е и перекрашиваешь его, или добавляешь какие-нибудь картинки в подменю. Или находишь хендл "Пуска" и меняешь надпись, или не даешь ему открыться, или наоборот, постоянно держишь его открытым... Ой, да сколько примеров есть!

[Ramzes]

А можна примерчик с коментариями.

[A.A.Z.]

Пример запустит калькулятор, 20 раз изменит св-во Enabled кнопки "+", отображая кол-во оставшихся смен в заголовке окна, и под конец, закроет его.

Код: Выделить всё

Private Const WM_CLOSE As Long = &H10 'Константа - сообщение "Close", которое нужно посылать окну с помощью функций SendMessage или PostMessage и нужная для его закрытия

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long 'API-функция, находящая хендл окна по имени его класса или его Caption.
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long 'API-функция, находящая хендл окна, находящегося в другом окне. Не забывай, все объекты являются окнами.
Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long 'API-функция, меняющая заголовок окна
Private Declare Function EnableWindow Lib "user32" (ByVal hwnd As Long, ByVal fEnable As Long) As Long 'API-функция, делающая окно активным или неактивным
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long 'API-функция, посылающая окну некое сообщение
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 'API-функция для создания паузы

Private Sub Form_Load()
Dim Wnd As Long 'Переменная для хендла окна "Калькулятор"
Dim Wnd1 As Long 'Переменная для хендла кнопки "+"
Dim I As Long 'Переменная-счетчик
Dim B As Boolean 'Переменная, хранящая свойство "Enabled" кнопки "="
Shell "calc.exe", vbNormalFocus 'Запускаем калькулятор. Здесь можно обойтись и без API
Wnd = FindWindow(vbNullString, "Калькулятор") 'Находим хендл окна
Wnd1 = FindWindowEx(Wnd, 0&, vbNullString, "+") 'Находим хендл кнопки "+"
For I = 1 To 20 '20 раз меняем ее Enabled
SetWindowText Wnd, 20 - I 'Отображаем количество оставшихся смен в заголовке окна. Наглость! :)
EnableWindow Wnd1, B 'Меняем свойство Enabled у кнопки
B = Not B 'Меняем состояние переменной
Sleep 200 'Пауза в 0.2 сек.
Next 'И еще раз
End Sub

За описаниями, объявлениями и т.п. всего, что связано с API, иди сюда.