Работа с процессами

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
#include <tlhelp32.h>
#include <windows.h>
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
DWORD GetPIDbyName(LPTSTR szProcessName)
{
        HANDLE hSnapshot;
        PROCESSENTRY32 pe = {sizeof(pe)};
 
        hSnapshot = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
        if (hSnapshot == INVALID_HANDLE_VALUE)
                return 0;
 
        if (!Process32First(hSnapshot, &pe))
                return 0;
 
        do
                if(!lstrcmpi(pe.szExeFile,szProcessName))
                        return pe.th32ProcessID;
        while (Process32Next(hSnapshot, &pe));
        return 0;
}
//---------------------------------------------------------------------------
 
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
HANDLE PHandle;
PROCESSENTRY32 ProcEntry;
BOOL Result;
Result=false;
PHandle = CreateToolhelp32Snapshot (TH32CS_SNAPPROCESS,0);
ProcEntry.dwSize = sizeof(PROCESSENTRY32);
Process32First(PHandle, &ProcEntry);
        do
        {
        ListBox1->Items->Add(ExtractFileName(ProcEntry.szExeFile));
        }
        while(Process32Next(PHandle, &ProcEntry));
CloseHandle(PHandle);
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::ListBox1Click(TObject *Sender)
{
LabeledEdit2->Text=ListBox1->Items->Strings[ListBox1->ItemIndex]; 
AnsiString lbe_txt = LabeledEdit2->Text;
LabeledEdit1->Text= (GetPIDbyName(lbe_txt.c_str() )); 
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
HANDLE hProcess;
        DWORD pid;
        pid = StrToInt(LabeledEdit1->Text); 
        hProcess = OpenProcess(PROCESS_ALL_ACCESS,FALSE,pid);
        TerminateProcess(hProcess, 0xDEAD);
        CloseHandle(hProcess);
 
ListBox1->Clear();
HANDLE PHandle;
PROCESSENTRY32 ProcEntry;
BOOL Result;
Result=false;
PHandle = CreateToolhelp32Snapshot (TH32CS_SNAPPROCESS,0);
ProcEntry.dwSize = sizeof(PROCESSENTRY32);
Process32First(PHandle, &ProcEntry);
        do
        {
        ListBox1->Items->Add(ExtractFileName(ProcEntry.szExeFile));
        }
        while(Process32Next(PHandle, &ProcEntry));
CloseHandle(PHandle);
}
//---------------------------------------------------------------------------