问使用inno安装程序卸载所有东西，甚至“新创建的应用程序文件”

EN

[UninstallDelete]
Type: filesandordirs; Name: "{app}"

[Code]

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
  if CurUninstallStep = usUninstall then begin
    if MsgBox('Do you want to delete all data files?', mbConfirmation,
        MB_YESNO) = IDYES 
    then begin
      DelTree(ExpandConstant('{app}'), False, True, True);
      //first False makes that the main Directory will not be deleted by function
      //but it will be by the end of Uninstallation
    end;
  end;
end;