殺死一個正在執行的程式 (轉)

殺死一個正在執行的程式 (轉)[@more@]procedure KillProgram(Classname : string; WindowTitle : string);
const
 PROCESS_TENATE = $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;