高手指教：如何杀死一个com组件里面创建的excel进程，我写程序了，杀别的都行，就是杀不掉com里创建的excel进程。

zrb007 2004-09-23 11:49:29

程序如下：

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;

...全文