begin
WinExec(PAnsiChar('taskkill /f /im '+s),SW_HIDE)
end;
//以上程序內容是強制關閉進程，但對掛接了Delphi調試器的程序無效
//以上程序結束進程能力比任務管理器強