Скрытие приложения в панели задач Windows 7 для создания невидимой панели инструментов

Delphi , Рабочий стол , TaskBar

Иногда разработчики программ на языке Object Pascal (Delphi) сталкиваются с необходимостью скрыть свое приложение из панели задач Windows 7. Это может быть необходимо, например, для создания панели инструментов на краю экрана, которая реагирует на клики пользователя, но при этом остается в фоновом режиме и не отображается в панели задач.

Проблема

Пользователь хочет скрыть свое приложение из панели задач Windows 7, чтобы создать невидимую панель инструментов на краю экрана. Попытки использовать инструкции из различных источников не привели к успеху, даже на новом пустом проекте VCL Forms Application.

Решение

Для решения этой проблемы можно использовать несколько подходов. Важно отметить, что некоторые из них могут потребовать изменения стандартного поведения элементов проекта.

Подход 1: Изменение свойства MainFormOnTaskBar

В файле проекта (dpr) можно установить свойство MainFormOnTaskBar в значение False. Это предотвратит создание кнопки для основной формы в панели задач. Пример кода:

program Project1;
uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1};
{$R *.res}
begin
  Application.Initialize;
  Application.MainFormOnTaskbar := False; // Установка свойства в False
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

Подход 2: Скрытие основной формы

В основной форме (Unit1.pas) можно переопределить обработчики событий OnShow и OnActivate, чтобы скрыть форму. Пример кода:

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;
type
  TForm1 = class(TForm)
  private
    procedure FormShow(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormShow(Sender: TObject);
begin
  ShowWindow(Handle, SW_HIDE);
end;
procedure TForm1.FormActivate(Sender: TObject);
begin
  ShowWindow(Handle, SW_HIDE);
end;
end.

Подход 3: Переопределение CreateParams

Можно переопределить метод CreateParams для основной формы, чтобы удалить флаг WS_EX_APPWINDOW и сделать форму владельцем приложения. Пример:

type
  TForm1 = class(TForm)
  protected
    procedure CreateParams(var Params: TCreateParams); override;
  end;
procedure TForm1.CreateParams(var Params: TCreateParams);
begin
  inherited;
  Params.ExStyle := Params.ExStyle and not WS_EX_APPWINDOW;
  Params.WndParent := Application.Handle;
end;

Подход 4: Использование WS_EX_TOOLWINDOW

После создания основной формы можно установить стиль окна WS_EX_TOOLWINDOW и удалить стиль WS_EX_APPWINDOW, чтобы скрыть приложение в панели задач. Пример кода, который следует добавить после создания основной формы:

var
  i: LongInt;
begin
  i := GetWindowLong(Application.Handle, GWL_EXSTYLE);
  SetWindowLong(Application.Handle, GWL_EXSTYLE, i OR WS_EX_TOOLWINDOW AND NOT WS_EX_APPWINDOW);
end;

Эти методы позволят скрыть приложение в панели задач Windows 7, что может быть полезно для создания скрытых панелей инструментов или других элементов интерфейса, которые должны оставаться в фоновом режиме. Важно тщательно тестировать приложение после внесения таких изменений, чтобы убедиться, что все функции работают корректно.

Создано по материалам из источника по ссылке.

Пользователь хочет скрыть своё приложение, разработанное на Delphi, из панели задач Windows 7, чтобы создать невидимую панель инструментов.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: TaskBar ::