如何查看系统的启动项目并终止（请写出原码）

Question

如何查看系统的启动项目并终止（请写出原码）

Answer 1

系统的启动项目：注意窗口里面有一个ListView1=========================================================================
var
  reg : TRegistry;
  subreg: TStrings;
  t : TListItem;
begin
      subreg := TStringList.Create;
      Reg := TRegistry.Create;
      Reg.RootKey := HKEY_CURRENT_USER;
      if Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run',False)
      then begin
        Reg.GetValueNames(subreg);
        for i:=0 to subreg.Count-1 do
        begin
          t := ListView1.Items.Add;
          t.Caption := Reg.ReadString(subreg.Strings[i]);
          t.SubItems.Add('注册表->HKEY_CURRENT_USER->Run');
        end;
      end;      if Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\RunServices',False)
      then begin
        Reg.GetValueNames(subreg);
        for i:=0 to subreg.Count-1 do
        begin
          t := ListView2.Items.Add;
          t.Caption := Reg.ReadString(subreg.Strings[i]);
          t.SubItems.Add('注册表->HKEY_CURRENT_USER->RunServices');
        end;
      end;      Reg.RootKey := HKEY_LOCAL_MACHINE;
      if Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run',False)
      then begin
        Reg.GetValueNames(subreg);
        for i:=0 to subreg.Count-1 do
        begin
          t := ListView1.Items.Add;
          t.Caption := Reg.ReadString(subreg.Strings[i]);
          t.SubItems.Add('注册表->HKEY_LOCAL_MACHINE->Run');
        end;
      end;      if Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\RunServices',False)
      then begin
        Reg.GetValueNames(subreg);
        for i:=0 to subreg.Count-1 do
        begin
          t := ListView1.Items.Add;
          t.Caption := Reg.ReadString(subreg.Strings[i]);
          t.SubItems.Add('注册表->HKEY_LOCAL_MACHINE->RunServices');
        end;
      end;
end;
你说的终止我不明白是什么意思，终止什么？

Answer 2

是不是想像W2K的任务管理器一样可以看到启动时加载的程序也可以终止这些进程啊？我也不知道:P