Узнать путь к каталогам Windows

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

uses Registry;

procedure TForm1.Button1Click(Sender: TObject);
var
  reg : TRegistry;
  ts : TStrings;
  i : integer;
begin
  reg := TRegistry.Create;
  reg.RootKey := HKEY_CURRENT_USER;
  reg.LazyWrite := false;
  reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Explorer\ShellFolders', false);
  ts := TStringList.Create;
  reg.GetValueNames(ts);
  for i := 0 to ts.Count -1 do
    Memo1.Lines.Add(ts.Strings[i] + ' = ' + reg.ReadString(ts.Strings[i]));
  ts.Free;
  reg.CloseKey;
  reg.free;
end;

Программный код на Delphi, который извлекает путь к системным директориям Windows с помощью реестра.

Программа создает экземпляр TRegistry и устанавливает корневой ключ в HKEY_CURRENT_USER, что соответствует хиве реестра для текущего пользователя. Затем она открывает ключ "Software\Microsoft\Windows\CurrentVersion\Explorer\ShellFolders", который содержит список системных директорий, таких как "Мои документы", "Загрузки" и т.д.

Программа использует TStringList для извлечения имён ключей в этом каталоге и затем читает значение для каждого ключа. Путь к каждой директории хранится в строковой переменной и добавляется в компонент "Memo1" (Memo1) формата "имя директории = путь к директории".

Вот улучшенная версия кода:

uses
  Registry;

procedure TForm1.Button1Click(Sender: TObject);
var
  reg: TRegistry;
  i: Integer;
begin
  reg := TRegistry.Create;
  try
    reg.RootKey := HKEY_CURRENT_USER;
    reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Explorer\ShellFolders', false);

    Memo1.Lines.Clear;

    for i := 0 to reg.KeyCount - 1 do
    begin
      reg.ReadString(i, s);
      Memo1.Lines.Add(s);
    end;

  finally
    reg.CloseKey;
    reg.Free;
  end;
end;

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

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

В статье описывается, как с помощью программирования на Delphi найти путь к каталогам Windows, используя реестр системы.

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

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

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