请问如何读取注册表中的默认键值

Question

如题

Answer 1

uses Registry;
...
procedure TForm1.FormShow(Sender: TObject);
var
  rAutoRun: TRegistry;
begin
  rAutoRun := TRegistry.Create;
  rAutoRun.RootKey := HKEY_LOCAL_MACHINE;
  try
    rAutorun.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run', false);
    Edit1.Text := rAutoRun.ReadString('');
  finally
    rAutoRun.CloseKey;
    rAutoRun.Free;
  end;
end;

Answer 2

非常感谢 weizi2000(秋风啊)