| Статистика | 
|
|
Каталог статей
Показываем/Скрываем 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);
чтобы скрыть !!
|
|
|
Просмотров: 403
4
Оштрафовать
| Жаловаться на материал |
|
| Улучшенный поиск | | Поиск по сайту
Поиск по всему интернету
|
|
