Check if process running in BCC55

//----------------------------------------------------------------------------
//Borland C++Builder
//Copyright (c) 1987, 1998-2002 Borland International Inc. All Rights Reserved.
//----------------------------------------------------------------------------
//----------------------------------------------------------------------------
#ifndef ProcH
#define ProcH
//----------------------------------------------------------------------------
#include <ComCtrls.hpp>
#include <Buttons.hpp>
#include <ExtCtrls.hpp>
#include <Menus.hpp>
#include <StdCtrls.hpp>
#include <Dialogs.hpp>
#include <Forms.hpp>
#include <Controls.hpp>
#include <Graphics.hpp>
#include <Classes.hpp>
#include <SysUtils.hpp>
#include <Messages.hpp>
#include <Windows.hpp>
#include <System.hpp>
//----------------------------------------------------------------------------
class TFormMain : public TForm
{
__published:
	TGroupBox *GroupBox1;
	TRadioButton *RadioButton1;
	TRadioButton *RadioButton2;
	TRadioButton *RadioButton3;
	TMainMenu *MainMenu1;
	TMenuItem *File1;
	TMenuItem *New1;
	TMenuItem *Exit1;
	TMenuItem *N1;
	TMenuItem *Help1;
	TMenuItem *About1;
	TPanel *Panel1;
	TSpeedButton *SpeedButton3;
	TSpeedButton *SpeedButton4;
	TStatusBar *StatusBar1;
	TListBox *ListBox1;
	TMenuItem *Refresh1;
	TRadioButton *RadioButton4;
	TLabel *Label2;
	TLabel *Label3;
	TLabel *Label4;
	TTimer *Timer1;
	TImage *Image1;
	TBevel *Bevel1;
    TSpeedButton *SpeedButton2;
    TSpeedButton *SpeedButton1;
	void __fastcall Exit1Click(TObject *Sender);
	void __fastcall About1Click(TObject *Sender);
	
	
	void __fastcall SpeedButton4Click(TObject *Sender);
	void __fastcall RadioButton1Click(TObject *Sender);
	
	
	void __fastcall New1Click(TObject *Sender);
	void __fastcall Refresh1Click(TObject *Sender);
	
	
	void __fastcall SpeedButton3Click(TObject *Sender);
	void __fastcall ListBox1Click(TObject *Sender);
	void __fastcall FormShow(TObject *Sender);
	void __fastcall Timer1Timer(TObject *Sender);
    void __fastcall SpeedButton2Click(TObject *Sender);
    void __fastcall SpeedButton1Click(TObject *Sender);
public:
    virtual __fastcall TFormMain(TComponent *Owner);
};
//----------------------------------------------------------------------------
extern TFormMain *FormMain;
//----------------------------------------------------------------------------
#endif	
 
 
//----------------------------------------------------------------------------
//Borland C++Builder
//Copyright (c) 1987, 1998-2002 Borland International Inc. All Rights Reserved.
//----------------------------------------------------------------------------
//---------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
 
#include <stdlib.h>
#include "proc.h"
#include "another.h"
//---------------------------------------------------------------------
#pragma resource "*.dfm"
#pragma resource "procv2.res"
TFormMain *FormMain;
//---------------------------------------------------------------------
static int stat=1;
int i=0;
//---------------------------------------------------------------------
__fastcall TFormMain::TFormMain(TComponent *Owner)
  : TForm(Owner)
{
}
//---------------------------------------------------------------------
bool __stdcall EnumProc(HWND hWnd,/*LPARAM*/long/*lp*/)
{
   unsigned long* pPid;   //LPDWORD
   unsigned long result;      //DWORD
   void *hg;                  //HGLOBAL
   unsigned long id;
 
   if(hWnd==NULL)
      return false;
 
   hg = GlobalAlloc(GMEM_SHARE,sizeof(unsigned long));
   pPid = (unsigned long *)GlobalLock(hg);
 
   result = GetWindowThreadProcessId(hWnd,pPid);
 
   if(result){
      char title[110];
      char className[95];
      char totalStr[256];
      GetClassName(hWnd,className,95);
      GetWindowText(hWnd,title,110);
      id=*pPid;
      ultoa(id,totalStr,10);
      strcat(totalStr,"\t");
      if(title){
         strcat(totalStr,title);
         strcat(totalStr,"\t");
      }
      strcat(totalStr,className);
      FormMain->ListBox1->Items->Add((AnsiString)totalStr);
   }
   else{
      GlobalUnlock(hg);
      GlobalFree(hg);
      return false;
   }
   GlobalUnlock(hg);
   GlobalFree(hg);
   return true;
}
 
//---------------------------------------------------------------------
void __fastcall TFormMain::Exit1Click(TObject* /*Sender*/)
{
   PostQuitMessage(0);
}
//----------------------------------------------------------------------------
void __fastcall TFormMain::About1Click(TObject* /*Sender*/)
{
   Form2->ShowModal();
}
//----------------------------------------------------------------------------
 void __fastcall TFormMain::SpeedButton4Click(TObject* /*Sender*/)
{
   long lp=0;
   ListBox1->Enabled=true;
   ListBox1->Clear();
   EnumWindows((WNDENUMPROC)EnumProc,lp);
   SpeedButton2->Enabled=true;
   SpeedButton3->Enabled=true;
}
//----------------------------------------------------------------------------
void __fastcall TFormMain::RadioButton1Click(TObject* Sender)
{
   TRadioButton *rbp =(TRadioButton*) Sender;
   ListBox1->Font->Color=rbp->Font->Color;
}
//----------------------------------------------------------------------------
 void __fastcall TFormMain::New1Click(TObject* /*Sender*/)
{
   SpeedButton4Click(0);
}
//----------------------------------------------------------------------------
 void __fastcall TFormMain::Refresh1Click(TObject* /*Sender*/)
{
      SpeedButton4Click(0);
}
//----------------------------------------------------------------------------
 void __fastcall TFormMain::SpeedButton3Click(TObject* /*Sender*/)
{
      ListBox1->Clear();
      SpeedButton3->Enabled=false;
      SpeedButton1->Enabled=false;
}
//----------------------------------------------------------------------------
 void __fastcall TFormMain::ListBox1Click(TObject* /*Sender*/)
{
   SpeedButton1->Enabled=true;
   StatusBar1->SimpleText="Select 'Kill Selected PID' to terminate the process";
}
//----------------------------------------------------------------------------
 
void __fastcall TFormMain::FormShow(TObject */*Sender*/)
{
   if(stat){
      stat= 0;
      ListBox1->Items->Add((AnsiString)"Click on 'pid' Tool button above");
   }
}
//---------------------------------------------------------------------
void __fastcall TFormMain::Timer1Timer(TObject */*Sender*/)
{
   switch(i){
      case 0:{
         Image1->Picture->Bitmap->LoadFromResourceName(0,(AnsiString)"BITMAP_5");
         Image1->Refresh();
         i=1;
         return;
      }
      case 1:{
         Image1->Picture->Bitmap->LoadFromResourceName(0,(AnsiString)"BITMAP_2");
         Image1->Refresh();
         i=2;
         return;
      }
      case 2:{
         Image1->Picture->Bitmap->LoadFromResourceName(0,(AnsiString)"BITMAP_3");
         Image1->Refresh();
         i=3;
         return;
      }
      case 3:{
         Image1->Picture->Bitmap->LoadFromResourceName(0,(AnsiString)"BITMAP_4");
         Image1->Refresh();
         i=4;
         return;
      }
      case 4:{
         Image1->Picture->Bitmap->LoadFromResourceName(0,(AnsiString)"BITMAP_1");
         Image1->Refresh();
         i=0;
         return;
      }
   }//end switch
}
 
void __fastcall TFormMain::SpeedButton2Click(TObject *Sender)
{
   SpeedButton4Click(0);
   SpeedButton1->Enabled=false;
}
//---------------------------------------------------------------------------
void __fastcall TFormMain::SpeedButton1Click(TObject *Sender)
{
   try {
   AnsiString str;
   char *tmp;
   int i;
   i= ListBox1->ItemIndex;
   if( i != -1){
      AnsiString s;
      tmp = new char[100];
      s=ListBox1->Items->Strings[i];
      strcpy(tmp,(char*)s.c_str());
      tmp=strtok(tmp,"\t");
   }
   int id=atoi(tmp);
   delete[] tmp;
   HANDLE ps = OpenProcess(1,false,id);
   if(ps){
      if(!TerminateProcess(ps,-9)){
         ShowMessage((AnsiString)"Could not end process specified!");
      }
      else{
         ShowMessage((AnsiString)"Process successfully terminated!");
      }
   }
   else{
      ShowMessage((AnsiString)"Could not open process requested!");
   }
   }
   catch(Exception &e)
   {
    ShowMessage("Please select a PID");
   }
}
//---------------------------------------------------------------------------
                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
152:
153:
154:
155:
156:
157:
158:
159:
160:
161:
162:
163:
164:
165:
166:
167:
168:
169:
170:
171:
172:
173:
174:
175:
176:
177:
178:
179:
180:
181:
182:
183:
184:
185:
186:
187:
188:
189:
190:
191:
192:
193:
194:
195:
196:
197:
198:
199:
200:
201:
202:
203:
204:
205:
206:
207:
208:
209:
210:
211:
212:
213:
214:
215:
216:
217:
218:
219:
220:
221:
222:
223:
224:
225:
226:
227:
228:
229:
230:
231:
232:
233:
234:
235:
236:
237:
238:
239:
240:
241:
242:
243:
244:
245:
246:
247:
248:
249:
250:
251:
252:
253:
254:
255:
256:
257:
258:
259:
260:
261:
262:
263:
264:
265:
266:
267:
268:
269:
270:
271:
272:
273:
274:
275:
276:
277:
278:
279:
280: