一段关闭进程的源码！

ilikenba

<>void __fastcall TForm1::Button1Click(TObject *Sender)
7 F! ~& _, Q& {5 H6 e5 [{
   DWORD TheProcessID, ErrorCode;
- e' q/ B; T% {/ G7 Z0 `   HWND TheWindowHandle=FindWindowEx(NULL,NULL,"IEFrame",NULL);
//找IE窗口
   if(TheWindowHandle)
   {
$ z) `( l3 t0 z6 I0 \: G     GetWindowThreadProcessId(TheWindowHandle,&amp;TheProcessID);
//有的话，获取进程ID
     HANDLE TheProcessHandle=OpenProcess(PROCESS_TERMINATE,false,TheProcessID);
     TerminateProcess(TheProcessHandle, 0);
2 b4 ^7 m  [8 c//杀掉
/ L+ W; ~  B- O  T% n- I9 P   }
: F* X3 A0 |/ _* V   else
   Application-&gt;MessageBox("There's no Internet Explorer window","ERROR",1);</P>
' {6 l  t  ^, Y$ d0 g7 ]<>}
6 K) m5 w% S% N2 b8 l) `2 W: y- M//---------------------------------------------------------------------------</P>
: K0 l! w& T% Z3 ]' R% ]- [<>void __fastcall TForm1::Button2Click(TObject *Sender)
{
HWND TheWindowHandle= FindWindow("Tapplication", "roject1");
if(TheWindowHandle)//有的话就关掉
  G+ C* k- z6 {0 s9 Y( u; L PostMessage(TheWindowHandle, WM_QUIT, 0, 0 );
}</P>