inno setup で強制終了

[Code]
procedure TaskKill(FileName: String);
var
  ResultCode: Integer;
begin
  Exec(ExpandConstant('taskkill.exe'), '/f /im ' + FileName , '', SW_HIDE,
  ewWaitUntilTerminated, ResultCode);
end;


...


TaskKill('excel.exe');