Советы по Delphi

         

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


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

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

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



        TForm1 = class(TForm) ... private hTaskBar: HWND; ... end;

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

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

  3. И, наконец, в обработчике события главной формы OnDestroy() необходимо вставить следующую строчку:

        ShowWindow(hTaskBar, SW_SHOW);

Другое решение

    PROCEDURE HideWin95TaskBar; VAR WindowHandle: hWnd; BEGIN {Скрытие панели задач Windows 95} WindowHandle := FindWindow('Shell_TrayWnd', ''); IF   WindowHandle <> 0 THEN ShowWindow(WindowHandle, SW_HIDE) END {HideWin95TaskBar};

PROCEDURE ShowWin95TaskBar; VAR WindowHandle:  hWnd; BEGIN {Восстанавливаем видимость панели задач Windows 95} WindowHandle := FindWindow('Shell_TrayWnd', ''); IF   WindowHandle <> 0 THEN ShowWindow(WindowHandle, SW_RESTORE) END {ShowWin95TaskBar};

[000276]



Содержание раздела