VBNet - Форум - Часы в SysTray

Вопрос: Часы в SysTray Добавлено: 14.07.02 18:29

Автор вопроса: Rebel | Web-сайт: rebel.bos.ru

вопрос таков: как получить hwnd трейных часов под Win2000, тк етот код работает только под 9X:
    hWnd = FindWindow("Shell_TrayWnd", vbNullString)
    hWnd = FindWindowEx(hWnd, 0, "TrayNotifyWnd", vbNullString)
    hWnd = FindWindowEx(hWnd, 0, "TrayClockWClass", vbNullString)
Да и еще, как прогрпммно вкючить\отключить отображение часов в трее???
заранее спасибо всем откликнувшимся :))))

Ответить

Ответы Всего ответов: 1

Номер ответа: 1
Автор ответа:

Ян

ICQ: 816105

Вопросов: 38
Ответов: 198

Web-сайт: www.yan.net.ru
Профиль | | #1

Добавлено: 15.07.02 15:49

Этот способ был 100% проверен мной на win2000:

'Функция для поиска окна первого уровня
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
'Функция для поиска окна дочернего
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
'Функция скрывает / показывает окно
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

'Процедура для скрытия часиков
Private Sub HideClocks()
Dim hnd As Long
'Ищем манипулятор панели задач (класс панели задач: Shell_TrayWnd)
hnd = FindWindow("Shell_TrayWnd", vbNullString)
'Ищем манипулятор трея (класс трея: TrayNotifyWnd)
hnd = FindWindowEx(hnd, 0, "TrayNotifyWnd", vbNullString)
'Ищем манипулятор часиков (класс часиков: TrayClockWClass)
hnd = FindWindowEx(hnd, 0, "TrayClockWClass", vbNullString)
'Скрываем часики
ShowWindow hnd, 0
End Sub

Ответить

Страница: 1 |