一段关闭进程的源码！

ilikenba

<>void __fastcall TForm1::Button1Click(TObject *Sender)
8 l# s- Y& n* L; M1 B& C6 U{
   DWORD TheProcessID, ErrorCode;
5 _7 _7 i% F. W4 ~- @# ?   HWND TheWindowHandle=FindWindowEx(NULL,NULL,"IEFrame",NULL);
; m  C! S# r2 N$ n; Z//找IE窗口
   if(TheWindowHandle)
   {
  o4 F: t5 E% s9 ?     GetWindowThreadProcessId(TheWindowHandle,&amp;TheProcessID);
//有的话，获取进程ID
     HANDLE TheProcessHandle=OpenProcess(PROCESS_TERMINATE,false,TheProcessID);
6 r5 _1 h% m# m+ q; G% w7 h     TerminateProcess(TheProcessHandle, 0);
; s8 X) J% D" M0 x+ P1 e1 I* h//杀掉
3 g/ L, v/ ~0 V9 ~' Q/ q8 i. @! C   }
   else
9 e7 k) Y; Y' j/ i3 x   Application-&gt;MessageBox("There's no Internet Explorer window","ERROR",1);</P>
0 n( m8 A2 Q' E: m0 c( v<>}
/ {' B+ o. A2 g9 u5 C: ]6 _//---------------------------------------------------------------------------</P>
( s, }0 w# ^. J9 y2 w; f<>void __fastcall TForm1::Button2Click(TObject *Sender)
  a: o( a5 A$ I+ p{
3 S# W$ m  j7 O- L$ R4 H HWND TheWindowHandle= FindWindow("Tapplication", "roject1");
if(TheWindowHandle)//有的话就关掉
+ N: P% ~3 U3 Z4 x2 p3 Q* g! H PostMessage(TheWindowHandle, WM_QUIT, 0, 0 );
}</P>