Советы по Delphi


         

Как спрятать панель задач в Windows 95?


Можно ли спрятать панель задач при запуске моего приложения? Когда пользователь закрывает приложение, панель задач должна снова стать видимой.

Я догадываюсь, вам нужно послать сообщение окну панели задач или области системных иконок в Windows 95, не в окно состояния. Ответ на ваш вопрос: конечно можно! Классная идея! Попробуйте так:

  1. Сначала объявим переменную типа HWND, в которой будем хранить дескриптор окна панели задач Windows 95:

    TForm1 = class(TForm)...privatehTaskBar: HWND;...end;

  2. В обработчике события OnCreate() главной формы напишем код подобно этому:

    hTaskBar := FindWindow('Shell_TrayWnd', nil);ShowWindow(hTaskBar, SW_HIDE);

  3. И, наконец, в обработчике события главной формы 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]



Содержание  Назад  Вперед