Как восстановить список недавних проектов MRU из реестра Windows для разных версий Delphi

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

Иногда разработчикам может потребоваться получить список недавних проектов (Most Recently Used, MRU) из реестра Windows для различных версий Delphi. Это может быть полезно для создания собственной системы управления проектами или для анализа истории работы с проектами. В данной статье мы рассмотрим, как можно реализовать функцию для получения MRU-листа из реестра.

Проблема

Вопрос заключается в том, как получить MRU-лист проектов для конкретных версий Delphi, используя реестр Windows. Пример функции GetDelphiMRUList показывает, что проверка на существование ключа 'Closed Projects' выполнена успешно, но сама логика чтения списка проектов из реестра отсутствует.

function GetDelphiMRUList(const verstr: string; var MRUList: TStringList): Boolean;
begin
  // ...
  if Result then
  begin
    // How to get the MRUList?
  end;
  // ...
end;

Решение

На основе информации из подтвержденного ответа, мы видим, что значения в реестре имеют имена File_0, File_1 и так далее. Используя эту информацию, можно написать функцию для чтения MRU-листа:

function GetDelphiMRUList(const verstr: string; MRUList: TStrings): Boolean;
begin
  var Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_CURRENT_USER;
    Result := Reg.OpenKey('SOFTWARE\Embarcadero\BDS\' + verstr + '\Closed Projects', False);
    if Result then
    begin
      MRUList.Clear;
      var i := 0;
      while Reg.ValueExists('File_' + i.ToString) do
      begin
        MRUList.Add(Reg.ReadString('File_' + i.ToString));
        Inc(i);
      end;
    end;
  finally
    Reg.Free;
  end;
end;

Обратите внимание, что параметр MRUList изменен на TStrings, что позволяет использовать его напрямую с компонентами, такими как Memo1.Lines.

Комментарии

В подтвержденном ответе также даны пояснения по поводу использования Reg.CloseKey, значений TBaseProject и использования Reg.OpenKey вместо OpenKeyReadOnly. Автор ответа указывает, что TRegistry.Destroy вызовет CloseKey, а также отмечает, что внутренние детали реализации MRU-листа не документированы и могут изменяться.

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

Для повышения универсальности функции чтения MRU-листа, можно использовать метод TRegistry.GetValueNames, который позволит избежать жесткой привязки к именам значений в реестре.

function GetDelphiMRUList(const verstr: string; MRUList: TStrings): Boolean;
begin
  var Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_CURRENT_USER;
    Result := Reg.OpenKey('SOFTWARE\Embarcadero\BDS\' + verstr + '\Closed Projects', False);
    if Result then
    begin
      MRUList.Clear;
      var ValueNames := Reg.GetValueNames;
      for var ValueName in ValueNames do
        MRUList.Add(Reg.ReadString(ValueName));
    end;
  finally
    Reg.Free;
  end;
end;

Заключение

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

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

Вопрос связан с восстановлением списка недавних проектов (MRU) из реестра Windows для разных версий Delphi, с предоставлением инструкции и примера кода для чтения этого списка.

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

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

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