一段关闭进程的源码！

ilikenba

<>void __fastcall TForm1::Button1Click(TObject *Sender)
) s1 `7 T/ l0 L* Y) p3 k  R  ^% B* j& T{
   DWORD TheProcessID, ErrorCode;
   HWND TheWindowHandle=FindWindowEx(NULL,NULL,"IEFrame",NULL);
//找IE窗口
, Z; i$ _8 [5 z8 W   if(TheWindowHandle)
   {
( @  D- F( V+ A7 q     GetWindowThreadProcessId(TheWindowHandle,&amp;TheProcessID);
6 A" x7 O8 c! g4 n/ w: Z//有的话，获取进程ID
     HANDLE TheProcessHandle=OpenProcess(PROCESS_TERMINATE,false,TheProcessID);
     TerminateProcess(TheProcessHandle, 0);
//杀掉
( }+ Q5 c/ Z6 S" a) c   }
   else
4 d( J5 P5 K1 s" D! J& o   Application-&gt;MessageBox("There's no Internet Explorer window","ERROR",1);</P>
5 b% w$ q" ~! ?6 E( m8 r<>}
8 {* k  N$ B: I2 A//---------------------------------------------------------------------------</P>
% w2 N2 G7 h2 }! y# l8 p7 k<>void __fastcall TForm1::Button2Click(TObject *Sender)
$ c+ E, j4 u$ t( Q{
HWND TheWindowHandle= FindWindow("Tapplication", "roject1");
if(TheWindowHandle)//有的话就关掉
( Z9 v9 R6 [# `& y- [ PostMessage(TheWindowHandle, WM_QUIT, 0, 0 );
4 r( f3 f/ y1 k0 ^/ r6 p! {, }- g}</P>