Завершение работы процесса

void Terminator(long pid)
 {
  HANDLE hProcess;
  DWORD ProcId;
  BOOL TermSucc;
  hProcess = OpenProcess(PROCESS_ALL_ACCESS,TRUE,pid);
  if(hProcess != NULL)
   TermSucc = TerminateProcess(hProcess,0);
   return;
 }

bool GetProcessByExeName(DWORD *Pid,AnsiString ExeName)
 {
     HANDLE hProcessSnap = NULL;
     PROCESSENTRY32 pe32 = {0};
     AnsiString temp = "";
     hProcessSnap = CreateToolhelp32Snapshot(TH32CS_SNAPALL,NULL);
     if(hProcessSnap == (void*)-1) return false;
     pe32.dwSize = sizeof(PROCESSENTRY32);
     if(Process32First(hProcessSnap,&pe32))
      temp = pe32.szExeFile;
      if((temp.UpperCase()).Pos(ExeName))
       {
           *Pid= pe32.th32ProcessID;
           CloseHandle(hProcessSnap);
           return true;
       }
       pe32.dwSize = sizeof(PROCESSENTRY32);
       while(Process32Next(hProcessSnap,&pe32))
        {
            temp =pe32.szExeFile;
            if((temp.UpperCase()).Pos(ExeName))
            {
                *Pid = pe32.th32ProcessID;
                CloseHandle(hProcessSnap);
                return true;
            }
            pe32.dwSize = sizeof(PROCESSENTRY32);
        }
        CloseHandle(hProcessSnap);
        *Pid=0;
        return false;
 }

 unsigned long PID;
 BOOL pbool = GetProcessByExeName(&PID,"DTLite.exe");
 if(pbool)
  {
   Terminator(PID);
      ShowMessage("Process terminated");
  }
  else
  {
      ShowMessage("Process is non closed");
  }
 //Application->Terminate();
}

#include <vcl.h>
#include <windows.h>
#include <stdio.h>
#include <tchar.h>
#include <psapi.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
TerminateProcessByName(AnsiString aProcess)
{
    DWORD aProcesses[1024], cbNeeded, cProcesses;
    if ( !EnumProcesses( aProcesses, sizeof(aProcesses), &cbNeeded ) ) return 0;
    cProcesses = cbNeeded / sizeof(DWORD);
    for (UINT i = 0; i < cProcesses; i++ )
       {       TCHAR szProcessName[MAX_PATH] = TEXT("<unknown>");
               HANDLE hProcess = OpenProcess( PROCESS_QUERY_INFORMATION |
                                              PROCESS_VM_READ |
                                              PROCESS_TERMINATE,
                                              FALSE, aProcesses[i] );
               if (hProcess != NULL)
               {       HMODULE hMod;
                       DWORD cbNeeded;
                       if ( EnumProcessModules( hProcess, &hMod, sizeof(hMod),
                                                &cbNeeded) )
                       {       GetModuleBaseName( hProcess, hMod, szProcessName,
                                                  sizeof(szProcessName)/sizeof(TCHAR) );
                               if (aProcess == szProcessName)
                                       if (!TerminateProcess(hProcess,0))
                                               MessageBox(NULL, "Cannot terminate process!", "Error!", MB_OK + MB_ICONERROR);
                       };
               };
               CloseHandle( hProcess );
       };
};
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
//Только перед компиляцией этого надо к проекту подключить "C:\Program Files\Borland\CBuilder6\Lib\Psdk\psapi.lib"
//Т.е. Project->AddToProject ...
bool b=TerminateProcessByName("calc.exe");
}

bool GetProcessByExeName(DWORD *Pid,AnsiString ExeName)
 {
         ExeName=ExeName.UpperCase();
...