Отправка файлов напрямую в запущенную программу на Delphi: избавление от мутексов и UAC

Delphi , Компоненты и Классы , Меню

Вопрос, стоящий перед разработчиками, работающими с Delphi и Pascal, заключается в том, как можно отправить выбранные имена файлов прямо в уже запущенное приложение, используя контекстное меню Windows Explorer, не запуская программу заново. Это особенно актуально, когда приложение использует механизмы мутексов и User Account Control (UAC), чтобы избежать дублирования процессов и повысить безопасность.

Решение проблемы

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

Подтвержденный ответ предлагает рассмотреть использование Direct Data Exchange (DDE) для взаимодействия с уже запущенными приложениями. Еще один вариант - написание собственного дополнения к оболочке (shell extension), что позволяет интегрировать функциональность программы непосредственно в контекстное меню Explorer. Дополнительную информацию можно найти в Stack Overflow.

Пример кода для взаимодействия через mailslot

program MailslotExample;

{$APPTYPE CONSOLE}

uses
  System.SysUtils,
  System.Classes,
  Winapi.Windows;

// Создание mailslot для приема сообщений
function CreateMailslot: TMailslot;
var
  Slot: THandle;
begin
  Result := THandle(0);
  if CreateFilePName(
    '\MAILSLOT\MyMailslotName',
    GENERIC_READ or GENERIC_WRITE,
    FILE_SHARE_READ or FILE_SHARE_WRITE,
    nil,
    OPEN_EXISTING,
    FILE_ATTRIBUTE_NORMAL or FILE_FLAG_OVERLAPPED,
    0,
    Slot
  ) then
  begin
    Result := Slot;
    try
      if not SetFileSecurity(Slot, nil) then
        RaiseLastOSError;
    finally
      if THandle(Result) = 0 then
        CloseHandle(Slot);
    end;
  end;
end;

var
  Mailslot: TMailslot;
begin
  Mailslot := CreateMailslot;
  if HandleIsInvalid(Mailslot) then
    Exit;

  // Здесь код для чтения сообщений из mailslot
end.

Заключение

Использование вспомогательного приложения или написание собственного дополнения к оболочке позволяет избежать повторного запуска программы и использования мутексов и UAC для контроля одновременного доступа к ресурсам. Приведенный пример кода демонстрирует создание mailslot, который может быть использован для приема файлов от контекстного меню Explorer в уже запущенное приложение.

Этот подход позволит вашему приложению, написанному на Delphi, эффективно взаимодействовать с контекстным меню Windows Explorer, не требуя повторного запуска и минимизируя взаимодействие с UAC.

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

Перед разработчиками стоит задача интеграции запущенного на Delphi приложения с контекстным меню Windows Explorer для передачи файлов без повторного запуска программы, учитывая механизмы мутексов и UAC.

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

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

:: Главная :: Меню ::