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

核心提示：获得当前激活的进程：1：包含头文件tlhelp32.h2:.cpp如下：ListView2->Items->Clear();TListItem *mItem;AnsiString ExeFile;Pointer pt,pt2;unsigned int s;DWord size,size2;HANDLE sn

　　获得当前激活的进程：
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();