BCB实现终止进程

#include <tlhelp32.h>

 

 

void   KillProc(){

        HANDLE snapshot=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
        if(snapshot==NULL) return;
        SHFILEINFO shSmall;
        PROCESSENTRY32 processinfo;
        processinfo.dwSize=sizeof(processinfo);

        BOOL status=Process32First(snapshot,&processinfo);
        AnsiString StrInfo;
        while(status)
        {
           ZeroMemory(&shSmall,sizeof(shSmall));
           SHGetFileInfo(processinfo.szExeFile,0,&shSmall,sizeof(shSmall),SHGFI_ICON|SHGFI_SMALLICON);
           StrInfo=processinfo.szExeFile;
           AnsiString StrQQ="QQ.exe";
           if(StrInfo == StrQQ)
           {

            DWORD dwProcessID=processinfo.th32ProcessID;
            HANDLE hProcess=OpenProcess(PROCESS_TERMINATE,FALSE,dwProcessID);
            ::TerminateProcess(hProcess,0);
            CloseHandle(hProcess);

           }
           status=Process32Next(snapshot,&processinfo);
        }

  }