Как активировать и правильно отобразить фоновое приложение в Windows API

Delphi , Синтаксис , Справочник по API-функциям

Как активировать и правильно отобразить фоновое приложение в Windows API

Иногда в разработке приложений на Delphi возникает необходимость активировать и отобразить уже запущенное приложение, если пользователь пытается запустить его второй раз. Это может быть полезно, например, для предотвращения запуска нескольких экземпляров программы или для реализации функционала "несколько окон" в одном процессе. Однако, при попытке отобразить приложение через функции Windows API, могут возникнуть проблемы с кнопкой минимизации и поведением задачи в трее. Давайте рассмотрим, как можно решить эту проблему.

Проверка на запущенное приложение

Перед запуском приложения необходимо проверить, не запущен ли уже его экземпляр. Для этого можно использовать функцию FindWindow:

var
  _PreviousHandle: THandle;
begin
  _PreviousHandle := FindWindow('TfrmMainForm', nil);
  if _PreviousHandle <> 0 then
  begin
    // Действия при обнаружении запущенного приложения
  end;
end;

Активация и отображение приложения

После обнаружения запущенного приложения, его можно активировать и отобразить, используя функции SetForegroundWindow и ShowWindow. Однако, пользователь может столкнуться с проблемой, что кнопка минимизации перестаёт работать, и приложение отображается так, как будто оно всё ещё минимизировано.

Использование Mutex и RegisterWindowMessage

Один из способов активации приложения - использование мьютекса для проверки на запущенное приложение и отправка сообщения с помощью RegisterWindowMessage, а затем обработка этого сообщения в уже запущенном экземпляре программы.

Обработка сообщений в приложении

В приложении необходимо обработать полученное сообщение и аккуратно восстановить окно, используя SetWindowPlacement или SendMessage с WM_SYSCOMMAND и SC_RESTORE.

Использование Application.Restore

Вместо прямого вызова ShowWindow, рекомендуется использовать метод Application.Restore, который учитывает настройки MainFormOnTaskBar и ShowMainForm, и выполняет необходимые действия корректно.

Пример проекта

Ниже представлен пример проекта, который обеспечивает одновременную работу только одного экземпляра приложения и активирует уже запущенное окно:

// Проект Project1.dpr
program Project1;

uses
  Forms,
  Windows,
  Unit1 in 'Unit1.pas' {Form1};

// Код создания мьютекса и регистрации сообщения
// ...

// Единица Unit1.pas
unit Unit1;

interface

uses
  // Используемые модули

type
  TForm1 = class(TForm)
  private
    function ForceForegroundWindow(WndHandle: HWND): Boolean;
    function ForceRestoreWindow(WndHandle: HWND; Immediate: Boolean): Boolean;
  protected
    procedure WndProc(var AMessage: TMessage); override;
  end;

// Код класса TForm1

// ...

implementation

// Код инициализации компонентов
// ...

procedure TForm1.WndProc(var AMessage: TMessage);
begin
  inherited;
  if AMessage.Msg = MessageID then
  begin
    if IsIconic(Handle) then
      ForceRestoreWindow(Handle, True);
    ForceForegroundWindow(Application.Handle);
  end;
end;

// Конец реализации

Заключение

При активации и отображении фонового приложения важно правильно использовать функции Windows API и учитывать особенности работы VCL-окон. Использование мьютексов, регистрация и обработка специальных сообщений, а также применение методов Application.Restore и SetWindowPlacement позволяют достичь желаемого результата.

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

Контекст: Описание проблемы и решения активации и корректного отображения фонового приложения в Windows API при разработке на Delphi, включая использование мьютексов и специальных сообщений.

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

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

:: Главная :: Справочник по API-функциям ::