如何关闭除自己程序外的所有其他应用程序

    　　获得当前激活的进程：
1：包含头文件tlhelp32.h
2:.cpp如下：

    ListView2->Items->Clear();
    TListItem *mItem;
    AnsiString ExeFile;
    Pointer pt,pt2;
    unsigned int s;
    DWord size,size2;
    HANDLE snapshot;
    PROCESSENTRY32 processinfo;
    processinfo.dwSize = sizeof(processinfo);
    snapshot =
    CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
    if (snapshot==NULL) return;
    bool flag = Process32First (snapshot,&processinfo);
    while (flag)
      {
      mItem=ListView2->Items->Add();
      ExeFile=AnsiString(processinfo.szExeFile);
      mItem->Caption=ExeFile;
      mItem->SubItems->Add(IntToStr(int(processinfo.th32ParentProcessID)));
      mItem->SubItems->Add(IntToHex(int(processinfo.th32ProcessID),8).UpperCase());
      size=GetFileVersionInfoSize(ExeFile.c_str(),&size2);
      pt=malloc(size);
      GetFileVersionInfo(ExeFile.c_str(),NULL,size,pt);
      if(VerQueryValue(pt,"\\StringFileInfo\\040904E4\\FileVersion",&pt2,&s))
        mItem->SubItems->Add(PChar(pt2));
      if(VerQueryValue(pt,"\\StringFileInfo\\040904E4\\CompanyName",&pt2,&s))
        mItem->SubItems->Add(PChar(pt2));
      if(VerQueryValue(pt,"\\StringFileInfo\\040904E4\\FileDescription",&pt2,&s))
        mItem->SubItems->Add(PChar(pt2));
      free(pt);
      flag = Process32Next(snapshot,&processinfo);
      }

要杀除一个进程，必须获得该进程的父线成ID（避免仅仅杀除子进程）。

    if (ListView2->SelCount==0)
      {
      MessageBox(Handle,"请首先选择一个进程！","中止进程",MB_OKMB_ICONWARNING);
      return;
      }
    int pPid=StrToInt(ListView2->Selected->SubItems->Strings[0]);
    HANDLE ps = OpenProcess(1,false,pPid);
    if(ps&&TerminateProcess(ps,-9))
      {
      MessageBox(Handle,"成功中止进程！","中止进程",MB_OKMB_ICONINFORMATION);
      }
    else
      MessageBox(Handle,"中止进程失败！","中止进程",MB_OKMB_ICONWARNING);
    ViewProcess();