[Code]
procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
var
Infos : integer;
begin
  if DirExists(ExpandConstant('{app}saves'))  then
  begin
  case CurUninstallStep of
    usUninstall:
      begin
        Infos := MsgBox('Do u want remove saves?', mbConfirmation, MB_YESNO)
        if Infos = IDYES then
        begin
        DelTree(ExpandConstant('{app}') +'saves', True, True, True);
        end;
      end;
    end;
  end;
end;