殺死一個正在運行的程序

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;