如何从注册表中读取值？

这是文档中的示例：

uses Registry;

...

function GetRegistryValue(KeyName: string): string;
var
  Registry: TRegistry;
begin
  Registry := TRegistry.Create(KEY_READ);
  try
    Registry.RootKey = HKEY_LOCAL_MACHINE;

    // False because we do not want to create it if it doesn't exist
    Registry.OpenKey(KeyName, False);

    Result := Registry.ReadString('VALUE1');
  finally
    Registry.Free;
  end;
end;

如何在按钮单击处理程序中调用此函数并将结果放入 TEdit，我想您会自己弄清楚的。

procedure TForm1.btn2Click(Sender: TObject);
const
  sKey = 'Software\\RegDemo\\IntKey\\';
var
  rReg: TRegistry;
begin
  rReg := TRegistry.Create;
  with rReg do
  begin
    RootKey := HKEY_CURRENT_USER;
    if KeyExists(sKey) then
      begin
        OpenKey(sKey,false);
        edt1.Text:=ReadString('ключ');
        CloseKey;
      end
    else edt1.Text:='';
  end;
  rReg.Free;
end;

一切顺利