////---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include <registry.hpp>
#include <SysUtils.hpp>
#include <tlhelp32.h>
////---------------------------------------------------------------------------
bool FindAndKillTheProc(AnsiString m_proc)
{
bbbbbb:
PROCESSENTRY32 PC32;
HANDLE hnd=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0 );
if ((int)hnd==- 1 )goto bbbbbb;
PC32.dwSize=sizeof(PC32);
bool i=Process32First(hnd,&PC32);
while (i)
        {
        AnsiString m_process = PC32.szExeFile;
        m_process = m_process.LowerCase();
        if (m_process.Pos(m_proc))
                {
                LPDWORD  ECode;
                HANDLE hPR=OpenProcess(PROCESS_TERMINATE,true,PC32.th32ProcessID);
                TerminateProcess(hPR,GetExitCodeProcess(hPR, ECode));
                CloseHandle(hnd);
                return true;
                }
        i=Process32Next(hnd,&PC32);
        }
CloseHandle(hnd);
return false;
}
////==========================================================================

//---------------------------------------------------------------------------
bool EnumWindowsProc(HWND hwnd,long lparam)
{
try
	{
	long retVal;
	char sSave[ 255 ];
	retVal = (long)::GetWindowTextLength(hwnd);
	::GetWindowText(hwnd,(LPTSTR)sSave,retVal+ 1 );
	strResult = strResult + sSave;
	if (strstr(strlwr(sSave),"Excel")!= 0 )PostMessage (hwnd, WM_QUIT,  0 ,  0 );
	return true;
	}
catch (Exception &exception)
	{
	return false;
	}
}

//---------------------------------------------------------------------------
void __fastcall TForm1::Timer2Timer(TObject *Sender)
{
LPARAM lParam =  0 ;
::EnumWindows((WNDENUMPROC)&EnumWindowsProc,lParam);
}
//---------------------------------------------------------------------------