The following procedure works under Windows NT. I have not
tested this under Windows 9x. You can retrieve the process ID
by calling the GetWindowThreadProcessId() function. I've
left this as an exercise to the reader.
If the process was created under another account, then you
may need to modify the DACL and/or ACE for the object you
are trying to terminate.
Oh, and please forgive the hungarian notation.
Glenn
DWORD GetWindowThreadProcessId(
HWND hWnd, // handle to window
LPDWORD lpdwProcessId // process identifier
);
BEGIN CODE BLOCK
-----------------
<BLOCKQUOTE><font size="1" face="Arial, Verdana">code:</font><HR><pre>
&scop PROCESS_ALL_ACCESS 2035711
procedure KillProc:
def input param nProcId as int no-undo.
/* This procedure attempts to kill a process by its process
id.
!! NOTE !!: The call to TerminateProcess() does not
notify any DLLs the process opened that the process is
exiting. This can result in messy DLL cleanup.
If possible, the process should be terminated by sending
all of it's top level windows the WM_CLOSE message.
*/
def var nProcess as int no-undo.
def var bTermSuccess as int no-undo.
run OpenProcess({&PROCESS_ALL_ACCESS}, 1, nProcId, output nProcess).
if not(nProcess > 0) then do:
message "Error opening handle to process.".
return.
end.
run TerminateProcess(nProcess, 0, output bTermSuccess).
if bTermSuccess <> 0 then
message "Process terminated successfully.".
end procedure.
procedure OpenProcess external "kernel32.dll":
def input param dwDesiredAccess as long.
def input param bInheritHandle as long.
def input param dwProcessId as long.
def return param hProcess as long.
end procedure.
procedure TerminateProcess external "kernel32.dll":
def input param hProcess as long.
def input param uExitCode as long.
def return param bSuccess as long.
end procedure.
[/code]
