杀死一个正在运行的程序

核心提示：PRocedure KillProgram(Classname : string; WindowTitle : string); const PROCESS_TERMINATE = $0001; var ProcessHandle : THandle; ProcessID: Integer; TheWindow : H

PRocedure KillProgram(Classname : string; WindowTitle : string);
const
　PROCESS_TERMINATE = $0001;
var
　ProcessHandle : THandle;
　ProcessID: Integer;
　TheWindow : HWND;
begin
　TheWindow := FindWindow(Classname, WindowTitle);
　GetWindowThreadProcessID(TheWindow, @ProcessID);
　ProcessHandle := OpenProcess(PROCESS_TERMINATE, FALSE, ProcessId);
　TerminateProcess(ProcessHandle,4);
end;