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

　　获得当前激活的进程：

　　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\040904E4FileVersion",&pt2,&s))

　　 mItem->SubItems->Add(PChar(pt2));

　　 if(VerQueryValue(pt,"StringFileInfo\040904E4CompanyName",&pt2,&s))

　　 mItem->SubItems->Add(PChar(pt2));

　　 if(VerQueryValue(pt,"StringFileInfo\040904E4FileDescription",&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();