一段关闭进程的源码！

ilikenba

<>void __fastcall TForm1::Button1Click(TObject *Sender)
4 `+ X9 J, C% X: F{
5 Z3 u; \" d6 C# Z4 k  w   DWORD TheProcessID, ErrorCode;
. A& o# h# ^2 U: n: w/ J   HWND TheWindowHandle=FindWindowEx(NULL,NULL,"IEFrame",NULL);
//找IE窗口
  w5 Q9 z& Q$ [, m5 f: m/ V/ _   if(TheWindowHandle)
# X% k% p& G, t9 y9 H   {
2 t1 c, @$ v' ^2 x" w( k3 a$ b     GetWindowThreadProcessId(TheWindowHandle,&amp;TheProcessID);
//有的话，获取进程ID
     HANDLE TheProcessHandle=OpenProcess(PROCESS_TERMINATE,false,TheProcessID);
  g, v, R8 n5 ~8 B8 `     TerminateProcess(TheProcessHandle, 0);
//杀掉
   }
   else
/ n* {7 K$ g3 r# ~0 z) ]! v   Application-&gt;MessageBox("There's no Internet Explorer window","ERROR",1);</P>
8 v4 B; }  z. U, K7 }$ a# F0 c<>}
//---------------------------------------------------------------------------</P>
<>void __fastcall TForm1::Button2Click(TObject *Sender)
, S, ~/ H5 v/ W) b8 X4 }- _5 a{
HWND TheWindowHandle= FindWindow("Tapplication", "roject1");
0 v" i1 B# }! S7 L4 D2 ~ if(TheWindowHandle)//有的话就关掉
, W2 y& V, b) `6 c) ]) G PostMessage(TheWindowHandle, WM_QUIT, 0, 0 );
}</P>