Как спрятать панель задач в Windows 95?
Можно ли спрятать панель задач при запуске моего приложения? Когда пользователь закрывает приложение, панель задач должна снова стать видимой.
Я догадываюсь, вам нужно послать сообщение окну панели задач или области системных иконок в Windows 95, не в окно состояния. Ответ на ваш вопрос: конечно можно! Классная идея! Попробуйте так:
- Сначала объявим переменную типа HWND, в которой будем хранить дескриптор окна панели задач Windows 95:
TForm1 = class(TForm)...privatehTaskBar: HWND;...end; - В обработчике события OnCreate() главной формы напишем код подобно этому:
hTaskBar := FindWindow('Shell_TrayWnd', nil);ShowWindow(hTaskBar, SW_HIDE); - И, наконец, в обработчике события главной формы OnDestroy() необходимо вставить следующую строчку:
ShowWindow(hTaskBar, SW_SHOW);
PROCEDURE HideWin95TaskBar;VARWindowHandle: hWnd;BEGIN{Скрытие панели задач Windows 95}WindowHandle := FindWindow('Shell_TrayWnd', '');IF WindowHandle <> 0THEN ShowWindow(WindowHandle, SW_HIDE)END {HideWin95TaskBar}; PROCEDURE ShowWin95TaskBar;VARWindowHandle: hWnd;BEGIN{Восстанавливаем видимость панели задач Windows 95}WindowHandle := FindWindow('Shell_TrayWnd', '');IF WindowHandle <> 0THEN ShowWindow(WindowHandle, SW_RESTORE)END {ShowWin95TaskBar}; |
[000276]