一段关闭进程的源码！

[复制链接]

字体大小: 正常放大

ilikenba

1万主题	49 听众	2万积分

TA的每日心情

	奋斗 2024-6-23 05:14

签到天数: 1043 天

[LV.10]以坛为家III

群组: 万里江山

群组: sas讨论小组

群组: 长盛证券理财有限公司

群组: C 语言讨论组

群组: Matlab讨论组

电梯直达

1^#

发表于 2004-4-28 23:25 |只看该作者 |倒序浏览

|招呼Ta 关注Ta

>void __fastcall TForm1::Button1Click(TObject *Sender)
{
DWORD TheProcessID, ErrorCode;
HWND TheWindowHandle=FindWindowEx(NULL,NULL,"IEFrame",NULL);
//找IE窗口
if(TheWindowHandle)
{
   GetWindowThreadProcessId(TheWindowHandle,&TheProcessID);
//有的话，获取进程ID
   HANDLE TheProcessHandle=OpenProcess(PROCESS_TERMINATE,false,TheProcessID);
   TerminateProcess(TheProcessHandle, 0);
//杀掉
}
else
Application->MessageBox("There's no Internet Explorer window","ERROR",1);</P>
<

>}
//---------------------------------------------------------------------------</P>
<

>void __fastcall TForm1::Button2Click(TObject *Sender)
{
HWND TheWindowHandle= FindWindow("Tapplication", "

roject1");
if(TheWindowHandle)//有的话就关掉
PostMessage(TheWindowHandle, WM_QUIT, 0, 0 );
}</P>

zan