Работа с собственными расширениями файлов в Delphi: автоматический выбор программы и получение пути

Delphi , Интернет и Сети , Браузер

При разработке программного обеспечения, особенно с использованием языков программирования, таких как Object Pascal (Delphi), часто возникает необходимость создания собственных расширений файлов. Это позволяет разработчикам определить, какие программы должны открываться по умолчанию для работы с файлами определенного типа. Однако, когда пользователь открывает файл с нестандартным расширением, созданным в программе, возникает вопрос: как получить путь к файлу, который стал триггером для запуска программы?

Описание проблемы

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

Подтвержденный ответ

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

При создании ассоциации файла вы можете указать точное место в командной строке, куда должен быть вставлен документ-файл. Используйте %1 в командной строке, и оболочка заменит его на имя файла. Поскольку имена файлов в Windows часто содержат пробелы, имя файла следует заключить в кавычки. Таким образом, команда в ассоциации файла будет выглядеть следующим образом:

ArthurApp.exe "%1"

С такой ассоциацией, при двойном клике по другому документу-файлу, будет запущена новая инстанция вашей программы. Если вы предпочитаете, чтобы документ открывался в другом окне уже запущенной программы, вы можете написать код, который будет искать уже запущенные инстанции при старте программы. Если таковые найдутся, то можно установить связь с ними, чтобы сообщить о новом файле для открытия. Существуют различные способы связи, включая mailslots, сокеты, именованные каналы, файлы с обратной записью в память и DDE.

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

Альтернативный ответ

Для проверки занятости расширения, нет единого публичного списка, но существует сервис shell.windows.com, который используется проводником для поиска обработчиков для неизвестных типов файлов. Вы можете создать новое расширение, а затем запросить у shell.windows.com, зарегистрировано ли оно кем-либо. Для проверки занятости расширения .blah достаточно открыть следующий URL в любом браузере:

http://shell.windows.com/fileassoc/0409/xml/redir.asp?ext=blah

Замените blah на ваше расширение.

Дополнительную информацию можно найти в KB929149 и в посте Раймонда Чена Where does shell.windows.com get information about file extensions, and how do I get in on that action?.

Пример кода на Object Pascal (Delphi)

procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
begin
  // Получаем количество аргументов командной строки
  i := ParamCount;
  // Если аргументы есть, то проверяем первый аргумент
  if i > 0 then
  {
    // Получаем путь к файлу, который вызвал программу
    ShowMessage(ParamStr(1));
  }
end;

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

Заключение

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

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

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

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

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

:: Главная :: Браузер ::