Delphi XE10 убрать свою программу с панели задач

[BLACK_RAIN]

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

  Application.MainFormOnTaskbar := False;

в Delphi seattle это не работает.

[beegl]

с панели задач:

в OnShow пишем:

    Sleep(1);
    if IsWindowVisible(Application.Handle) then
    ShowWindow(Application.Handle, SW_HIDE);

обратно отображает:

    Sleep(1);
    if not IsWindowVisible(Application.Handle) then
    ShowWindow(Application.Handle, SW_SHOW);

[BLACK_RAIN]

Сообщение от beegl

с панели задач:

посмотрите пример с CnTaskBar.pas

http://www.cnpack.org

мне нужно не скрыть панель задач, а убрать с нее кнопку окна моей программы

  Application.ShowMainForm:=False;           // <----- False

а форму-то зачем скрывать?

[BLACK_RAIN]

Сообщение от beegl

с панели задач:

в OnShow пишем:

    Sleep(1);
    if IsWindowVisible(Application.Handle) then
    ShowWindow(Application.Handle, SW_HIDE);

обратно отображает:

    Sleep(1);
    if not IsWindowVisible(Application.Handle) then
    ShowWindow(Application.Handle, SW_SHOW);

спасибо. Без sleep тоже работает.
а почему
Application.MainFormOnTaskbar := False;
перестало работать?
Обновления не идут на пользу.

[kutani]

...дарю:

 SetWindowLong(Application.Handle,GWL_EXSTYLE,GetWindowLong(Application.Handle, GWL_EXSTYLE) or not WS_EX_APPWINDOW);

[BLACK_RAIN]

Сообщение от kutani

...дарю:

 SetWindowLong(Application.Handle,GWL_EXSTYLE,GetWindowLong(Application.Handle, GWL_EXSTYLE) or not WS_EX_APPWINDOW);

это нифига не работает вот прикол, да?

[kutani]

Это работает от хрюши до десятки, вот прикол, да? Показывай чего нахимичил и как применяешь.

[tsar_]

Сообщение от kutani

...дарю:

 SetWindowLong(Application.Handle,GWL_EXSTYLE,GetWindowLong(Application.Handle, GWL_EXSTYLE) or not WS_EX_APPWINDOW);

Чот попахивает: http://www.gunsmoker.ru/2010/08/blog-post.html

[min@y™]

я по сабжу давно не заморачиваюсь: кидаю на форму какой-нить trayicon-компонент (их есть у меня, тыщи их), настраиваю и всё. 3 минуты делов.