以下是我的程序,试了很多次,都不能删除run-\sysclient项 :(
是哪里有问题么?谢谢:)  myreg:=tregistry.Create;
  myreg.RootKey:=hkey_current_user;
  try
    if myreg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run-',true) then
      strtmp:=myreg.ReadString('SysClient');
    if trim(strtmp)<>'' then
      begin
        if myreg.DeleteKey('SysClient') then
          showmessage('ok');
        myreg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run',true);
        myreg.WriteString('SysClient',strtmp);
        myreg.closekey;
      end;  finally
    myreg.free;
  end;