Статистика | Зарегистрировано на сайте: Всего: 51642
Онлайн всего: 52 Гостей: 52 Пользователей: 0
|
|
Каталог статей
Показываем/Скрываем System Tray.
Вы, наверное, видели множество примеров, которые показывают как скрывать панель задач или кнопку Пуск. Но вот как скрыть только System Tray ?
Совместимость: Delphi 4.x (или выше)
Сама функция !!
procedure hideStartbutton(visi:boolean); Var Tray, Child : hWnd; C : Array[0..127] of Char; S : String;
Begin Tray := FindWindow('Shell_TrayWnd', NIL); Child := GetWindow(Tray, GW_CHILD); While Child 0 do Begin If GetClassName(Child, C, SizeOf©) > 0 Then Begin S := StrPAS©; If UpperCase(S) = 'TRAYNOTIFYWND' then begin
If Visi then ShowWindow(Child, 1) else ShowWindow(Child, 0); end; End; Child := GetWindow(Child, GW_HWNDNEXT); End; End;
для того, чтобы обатно её показать, используйте
hideStartbutton(true);
или hideStartbutton(false); чтобы скрыть !!
|
|
Просмотров: 401
| Рейтинг: 1.0/
4
Оштрафовать
| Жаловаться на материал |
|
|