怎样删除键值名字 不删除RUN启动项

Question

procedure TForm1.Button1Click(Sender: TObject);
Var Reg:TRegistry;
begin
Reg:=TRegistry.Create;
Try
Reg.RootKey:=HKEY_LOCAL_MACHINE;
if Reg.deletekey('\Software\Microsoft\Windows\CurrentVersion\Run\run\'then
reg.DeleteKey('run''E:\qq\QQ\QQ.exe');
MessageDlg('删除成功！', mtInformation,[mbOk], 0);
Finally
Reg.CloseKey;
Reg.Free;
end;//这样运行 连WINDOWS 下的RUN 都给删除了.但里面还有我需要别的启动项呢 怎样删除一个啊

Answer 1

获取所有键值GetValueNames
然后DeleteValue

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  s: TRegistry;
begin
  s := TRegistry.Create;
  try
    s.RootKey := HKEY_LOCAL_MACHINE;
    s.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run\run',False);
    s.DeleteValue('QQ');
  finally
    s.CloseKey;
    s.Free;
  end;
end;