Как определить программу по умолчанию для файлов в Delphi: Поиск ассоциированных приложений

Delphi , ОС и Железо , Реестр

Введение

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

Шаг 1: Поиск исполняемого файла для ассоциации

Для начала можно использовать функцию, которая определяет исполняемый файл, назначенный для определенного расширения файла. Вот пример такой функции на Object Pascal:

uses Registry, Windows, SysUtils;

function GetAssociation(const DocFileName: string): string;
var
  FileClass, RegKeyPath: string;
  Reg: TRegistry;
begin
  Result := '';
  Reg := TRegistry.Create(KEY_READ);
  try
    RegKeyPath := ExtractFileExt(DocFileName);
    if Reg.OpenKeyReadOnly(HKEY_CLASSES_ROOT, RegKeyPath) then
    begin
      FileClass := Reg.ReadString('');
      if FileClass <> '' then
      begin
        if Reg.OpenKeyReadOnly(FileClass + '\Shell\Open\Command') then
        begin
          Result := Reg.ReadString('');
          Result := Trim(StringOfChar(Result, '"'));
        end;
      end;
    end
    else
    begin
      // Если ключ HKCR не найден, проверяем в HKCU
      RegKeyPath := 'Software\Classes\' + RegKeyPath;
      if Reg.OpenKeyReadOnly(HKEY_CURRENT_USER, RegKeyPath) then
      begin
        FileClass := Reg.ReadString('');
        if FileClass <> '' then
        begin
          if Reg.OpenKeyReadOnly(FileClass + '\Shell\Open\Command') then
          begin
            Result := Reg.ReadString('');
            Result := Trim(StringOfChar(Result, '"'));
          end;
        end;
      end;
    end;
  finally
    Reg.Free;
  end;
end;

Шаг 2: Получение имени программы из версии исполняемого файла

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

var
  VersionInfo: TVersionInfo;
begin
  VersionInfo := TVersionInfo.Create(Result); // Путь к исполняемому файлу
  Result := VersionInfo.KeyValue['Description'];
  // В зависимости от программы, имя может быть в другом ключе, например, 'ProductName'
end;

Альтернативный подход: Использование API

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

Пример использования AssocQueryString для получения имени программы:

uses
  ShellApi;

function GetDefaultAppName(const FileExtension: string): string;
var
  Buffer: array[0..MAX_PATH] of Char;
begin
  FillChar(Buffer, SizeOf(Buffer), #0);
  if AssocQueryString(ASSOC_Flag, FileExtension, @ASSOCSTR_FRIENDLYAPPNAME, nil, Buffer, Length(Buffer)) > 0 then
    Result := Buffer
  else
    Result := '';
end;

Заключение

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

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

Контекст связан с разработкой в среде Delphi и определяет способы нахождения программы по умолчанию для открытия файлов определенного типа.

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

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

:: Главная :: Реестр ::