Delphi-Help

Главная Статьи Реестр Как мне экспортировать ключ реестра в папку?

Как мне экспортировать ключ реестра в папку?

Оцените материал
(0 голосов)


Как мне экспортировать ключ реестра в папку?

uses
  ShellAPI;
 
procedure TMain.ExportBtnClick(Sender: TObject);
var
  FileName, Key: string;
begin
  FileName := ... //заполнить именем файла (расширение указывать)
  Key := ... //заполнить именем ключа, типа
  //Key := 'HKEY_LOCAL_MACHINE\Software\Microsoft\Windows NT\CurrentVersion'
  if ShellExecute(Handle, 'open', 'regedit.exe',
  PChar(Format('/e "%s" "%s"', [FileName, Key])),
  '', SW_SHOWDEFAULT) <= 32
  then //если ошибка, то возвращаемый код <=32
    RaiseLastWin32Error();
end;
Прочитано 3261 раз

Авторизация



Счетчики