Управление инстанциями приложения в Delphi: запуск из системного трея и взаимодействие окон

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

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

Проблема

У вас есть приложение на Delphi, которое запускается в минимализированный режим в виде иконки в системном трее. При двойном клике на иконку открывается не-модальное пользовательское интерфейсное окно. Вам необходимо добавить логику, которая будет обнаруживать, если приложение уже запущено, и в этом случае передавать управление первой инстанции приложения, открывать не-модальное окно и затем завершать работу второй инстанции.

Решение

Для решения этой задачи можно использовать различные подходы. Один из методов - использование именованного мьютекса или блокировки файла в известном месте, чтобы обнаружить другие инстанции приложения. Затем можно отправить сообщение первой инстанции, чтобы она открыла необходимое окно.

Пример кода на Object Pascal для создания и использования мьютекса:

program Only_One_Mutex;
{$define useMutex}
uses
  Forms,
  Windows,
  Messages,
  MainForm in 'MainForm.pas' {frmMain};
{$R *.res}
{$ifdef useMutex}
var
  Mutex: THandle;
{$endif}
...
// Код для создания мьютекса и проверки его существования
...
{$ifdef useMutex}
Mutex := CreateMutex(nil, True, PAnsiChar(AMutex));
if (GetLastError = ERROR_ALREADY_EXISTS) then begin
  // Код для восстановления первой инстанции приложения
end
else
  // Код для запуска приложения
...
{$else}
  // Код для многозапуска приложения
...
end.

Для взаимодействия с уже открытыми окнами можно использовать пользовательские сообщения Windows:

const WM_KNOCK_KNOCK = WM_USER + 42;
...
procedure TMainForm.FormCreate(Sender: TObject);
var
  Window: HWND;
begin
  Window := FindWindow(PChar({MainForm.}ClassName), nil);
  if Window <> 0 then
  begin
    PostMessage(Window, WM_KNOCK_KNOCK, 0, 0);
    Halt;
  end;
  // Регулярная инициализация
end;

В первой инстанции приложения должен быть обработчик для сообщения WM_KNOCK_KNOCK, который будет выполнять необходимые действия, например, открытие не-модального окна.

Альтернативные подходы

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

Заключение

В данной статье мы рассмотрели, как управлять инстанциями приложения в Delphi, используя примеры кода на Object Pascal. Приведенные методы позволяют обнаружить уже запущенные инстанции и взаимодействовать с ними, что является ключевым при разработке приложений с системным треем и взаимодействием окон.

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

Управление инстанциями приложения на Delphi, включая запуск из системного трея и взаимодействие окон.

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

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

:: Главная :: TrayBar ::