一段关闭进程的源码！

ilikenba

<>void __fastcall TForm1::Button1Click(TObject *Sender)
{
. f: Q/ s+ o5 ?   DWORD TheProcessID, ErrorCode;
   HWND TheWindowHandle=FindWindowEx(NULL,NULL,"IEFrame",NULL);
//找IE窗口
   if(TheWindowHandle)
" K" ?5 d. i0 L( W7 E   {
     GetWindowThreadProcessId(TheWindowHandle,&amp;TheProcessID);
" R7 J9 k" D% X& W" D/ J//有的话，获取进程ID
     HANDLE TheProcessHandle=OpenProcess(PROCESS_TERMINATE,false,TheProcessID);
     TerminateProcess(TheProcessHandle, 0);
//杀掉
   }
   else
$ ]: G& Q' G& D2 z, U* M  n4 _   Application-&gt;MessageBox("There's no Internet Explorer window","ERROR",1);</P>
- T- q3 q* J. U1 k1 g. }<>}
//---------------------------------------------------------------------------</P>
# [* E/ v' }# m- E3 C, H) H1 S7 v5 ?<>void __fastcall TForm1::Button2Click(TObject *Sender)
{
HWND TheWindowHandle= FindWindow("Tapplication", "roject1");
if(TheWindowHandle)//有的话就关掉
$ \/ B! I" ]% o9 e; `1 Z: v PostMessage(TheWindowHandle, WM_QUIT, 0, 0 );
}</P>