Убить процесс, зная имя.exe

 short KillThisProcess=0;
   HANDLE hProcessSnap = NULL;
   PROCESSENTRY32 pe32 = {0};
   AnsiString NameKillProcess = "Сalc.exe";
   hProcessSnap = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
   pe32.dwSize = sizeof(PROCESSENTRY32);
   if (Process32First(hProcessSnap, &pe32))
   do
     if(AnsiString(pe32.szExeFile)==NameKillProcess)KillThisProcess++;
   while (Process32Next(hProcessSnap, &pe32));
   CloseHandle (hProcessSnap);
   if (KillThisProcess>1)Application->Terminate();

#include <vcl.h>
#include <stdlib.h>
#include <Tlhelp32.h>
#include <fstream.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void KillProcess(int id)
{
   HANDLE ps = OpenProcess(1, false, id);
   if (ps)
    TerminateProcess(ps, -9);
}
int IsProcessRunning( char * pName )
{
int id_p;
strlwr( pName );
HANDLE snapshot = CreateToolhelp32Snapshot( TH32CS_SNAPPROCESS, 0 );
PROCESSENTRY32 pe;
char pExeName[256];
for( BOOL r=Process32First(snapshot, &pe); r; r=Process32Next(snapshot, &pe) )
{
        strcpy(pExeName, pe.szExeFile);
        strlwr(pExeName);
if( std::string(pName)==pExeName )
{
        id_p=pe.th32ProcessID;
        CloseHandle(snapshot);
        return id_p;
}
}
CloseHandle(snapshot);
return 0;
}
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Timer1->Interval=StrToInt(Edit2->Text);
Timer1->Enabled=true;
}
 
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
char * pname=new char[255];
memset(pname,'\0',255);
strcat(pname,Edit1->Text.c_str());
if (IsProcessRunning(pname)!=0){
KillProcess(IsProcessRunning(pname));
Label1->Caption="Process killed";
Timer1->Enabled=false;
}else{
i++;
Label1->Caption=i;
}
delete []pname;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
Timer1->Enabled=false;
}