程序如下：procedure TForm1.Button1Click(Sender: TObject);
var
proc: procobject;
procHandle: THandle;
ExitCD: integer;
// This does a "hard" kill. From the MS help file :
// The TerminateProcess function is used to unconditionally cause a process to exit.
// Use it only in extreme circumstances. The state of global data maintained by dynamic-link
// Libraries (DLLs) may be compromised if TerminateProcess is used rather than ExitProcess.
// TerminateProcess causes all threads within a process to terminate, and causes a process
// to exit, but DLLs attached to the process are not notified that the process is terminating.
begin
screen.Cursor := crhourglass;
ExitCD := 0;
if listbox1.itemindex <> -1 then
begin
proc := procObject(listbox1.items.objects[listbox1.itemindex]); // get handle
procHandle := 0;
try
TerminateApp(int64(Proc.Theproc.th32ProcessID), 1000);
// ͨ¹ýÒÔÏÂ2ÐдúÂëÒ²¿ÉÒÔɱ½ø³Ì£¬µ«ÊÇÎÞ·¨É±Ò»Ð©ÏµÍ³½ø³ÌµÈ¸ß¼¶È¨Ï޵Ľø³Ì£¬
//¸ü¶à±ê×¼ÇëÕÒMSDNÖ÷Ì⣺HOWTO: Terminate an Application "Cleanly" in Win32
//»òÕß·ÃÎÊÕâÀhttp://support.microsoft.com/default.aspx?scid=kb;EN-US;q178893
//procHandle := OpenProcess(PROCESS_TERMINATE, false, Proc.Theproc.th32ProcessID);
//TerminateProcess(procHandle, ExitCd);
except
showmessage('An error has occurred while trying to kill the selected application.' +
#13 + 'Error code :' + inttostr(ExitCD));
end;
if procHandle <> 0 then
CloseHandle(procHandle);
end;
if ExitCD = 0 then
begin
// wait for windows to kill the task before refreshing the app list
sleep(200);
lookforexes; // refresh the process list
screen.cursor := crDefault;
end;
end;function TerminateAppEnum(hwnd: HWND; lParam: LPARAM): boolean; stdcall;
var
dwID: DWORD;
begin
GetWindowThreadProcessId(hwnd, @dwID) ;
if(dwID = lParam) then
PostMessage(hwnd, WM_CLOSE, 0, 0) ;
Result:= TRUE;
end;function TerminateApp(dwPID: DWORD ; dwTimeout: DWORD): DWORD;
var
hProc: THANDLE;
dwRet: DWORD;
begin
// If we can't open the process with PROCESS_TERMINATE rights,
// then we give up immediately.
{
hProc := OpenProcess(SYNCHRONIZE or PROCESS_TERMINATE, FALSE,
dwPID);
}
hProc := OpenProcess(SYNCHRONIZE or PROCESS_TERMINATE, true,
(dwPID)); if(hProc = 0) then
Result:= TA_FAILED; // TerminateAppEnum() posts WM_CLOSE to all windows whose PID
// matches your process's.
EnumWindows(@TerminateAppEnum, dwPID) ; // Wait on the handle. If it signals, great. If it times out,
// then you kill it.
if(WaitForSingleObject(hProc, dwTimeout) <> WAIT_OBJECT_0) then
begin
if TerminateProcess(hProc,0) then
dwRet:= TA_SUCCESS_KILL
else
dwRet:= 0;
end else
dwRet := TA_SUCCESS_CLEAN ; CloseHandle(hProc) ;
Result:= dwRet ;
end;
var
proc: procobject;
procHandle: THandle;
ExitCD: integer;
// This does a "hard" kill. From the MS help file :
// The TerminateProcess function is used to unconditionally cause a process to exit.
// Use it only in extreme circumstances. The state of global data maintained by dynamic-link
// Libraries (DLLs) may be compromised if TerminateProcess is used rather than ExitProcess.
// TerminateProcess causes all threads within a process to terminate, and causes a process
// to exit, but DLLs attached to the process are not notified that the process is terminating.
begin
screen.Cursor := crhourglass;
ExitCD := 0;
if listbox1.itemindex <> -1 then
begin
proc := procObject(listbox1.items.objects[listbox1.itemindex]); // get handle
procHandle := 0;
try
TerminateApp(int64(Proc.Theproc.th32ProcessID), 1000);
// ͨ¹ýÒÔÏÂ2ÐдúÂëÒ²¿ÉÒÔɱ½ø³Ì£¬µ«ÊÇÎÞ·¨É±Ò»Ð©ÏµÍ³½ø³ÌµÈ¸ß¼¶È¨Ï޵Ľø³Ì£¬
//¸ü¶à±ê×¼ÇëÕÒMSDNÖ÷Ì⣺HOWTO: Terminate an Application "Cleanly" in Win32
//»òÕß·ÃÎÊÕâÀhttp://support.microsoft.com/default.aspx?scid=kb;EN-US;q178893
//procHandle := OpenProcess(PROCESS_TERMINATE, false, Proc.Theproc.th32ProcessID);
//TerminateProcess(procHandle, ExitCd);
except
showmessage('An error has occurred while trying to kill the selected application.' +
#13 + 'Error code :' + inttostr(ExitCD));
end;
if procHandle <> 0 then
CloseHandle(procHandle);
end;
if ExitCD = 0 then
begin
// wait for windows to kill the task before refreshing the app list
sleep(200);
lookforexes; // refresh the process list
screen.cursor := crDefault;
end;
end;function TerminateAppEnum(hwnd: HWND; lParam: LPARAM): boolean; stdcall;
var
dwID: DWORD;
begin
GetWindowThreadProcessId(hwnd, @dwID) ;
if(dwID = lParam) then
PostMessage(hwnd, WM_CLOSE, 0, 0) ;
Result:= TRUE;
end;function TerminateApp(dwPID: DWORD ; dwTimeout: DWORD): DWORD;
var
hProc: THANDLE;
dwRet: DWORD;
begin
// If we can't open the process with PROCESS_TERMINATE rights,
// then we give up immediately.
{
hProc := OpenProcess(SYNCHRONIZE or PROCESS_TERMINATE, FALSE,
dwPID);
}
hProc := OpenProcess(SYNCHRONIZE or PROCESS_TERMINATE, true,
(dwPID)); if(hProc = 0) then
Result:= TA_FAILED; // TerminateAppEnum() posts WM_CLOSE to all windows whose PID
// matches your process's.
EnumWindows(@TerminateAppEnum, dwPID) ; // Wait on the handle. If it signals, great. If it times out,
// then you kill it.
if(WaitForSingleObject(hProc, dwTimeout) <> WAIT_OBJECT_0) then
begin
if TerminateProcess(hProc,0) then
dwRet:= TA_SUCCESS_KILL
else
dwRet:= 0;
end else
dwRet := TA_SUCCESS_CLEAN ; CloseHandle(hProc) ;
Result:= dwRet ;
end;
解决方案 »
- delphi7+access怎么实现数据库追加记录到数据库中？
- Report machine相关问题
- 重金求购薪资编程语言PPL！
- delphi6如何设置为发布模式
- 各路大侠，能指点一下Delphi的好书，我是新来的，谢谢了
- 请教Delphi程序内存问题！
- 关于XML文件的一个问题
- 急！！！各位大虾，怎样删除一个目录下的所有文件？？？？？给高分！！！
- 但storedProcName中可选的存储过程中没有sp_tableoption,该怎么办？ 在delphi中怎样调用系统存储过程sp_tableoption？
- 关于 tcollection ,tcollectionitem,的使用？
- 在delphi中如何实现redo和undo功能
- adoquery的过滤属性问题
怎么会杀不掉Excel呢？