Kotyarko_O 1,906 #196854 Posted June 30, 2014 (edited) if DirExists ('{app}\res_mods_old') = True then Это неправильная конструкция.. Попробуй так: if DirExists('{app}\res_mods_old') then begin Действие, если папка присутствует end else Действие во всех остальных случаях end; Edited June 30, 2014 by Kotyarko_O Quote Share this post Link to post Short link Share on other sites
ventura69 34 #196857 Posted June 30, 2014 Это неправильная конструкция.. Попробуй так: if DirExists('{app}\res_mods_old') then begin Действие, если папка присутствует end else Действие во всех остальных случаях end; Пробовал такое - не захотело работать, это раз. Во вторых: так толком и не придумал, что делать, если папки этой нет. Надо просто пропустить действие удаления. Как? Quote Share this post Link to post Short link Share on other sites
Kotyarko_O 1,906 #196861 Posted June 30, 2014 @ventura69, скинь весь свой код бекапа.. поиграюсь, есть пара идей.. Quote Share this post Link to post Short link Share on other sites
ventura69 34 #196862 Posted June 30, 2014 @ventura69, скинь весь свой код бекапа.. поиграюсь, есть пара идей.. Да пожалуйста :-) claerkash.rar Здесь пока не все - кое какие идеи еще не дописал. Но, по мелочи. Кстати, надо вписать еще удаление файлов обновлений в очистку кэш. Quote Share this post Link to post Short link Share on other sites
Kotyarko_O 1,906 #196869 Posted June 30, 2014 (edited) @ventura69, вот, получился нормальный вариант.. Если он в выбранной директории находит папку res_mods_old, то выполняется действие: DelTree(ExpandConstant('{app}\res_mods'), True, True, True); RenameFile(ExpandConstant('{app}\res_mods_old'), ExpandConstant('{app}\res_mods')); Если же он эту папку не находит, то выводится мсджбокс и после нажатия кнопки ОК инсталл закрывается. Это всё выполнятся при условии, что был выбран пункт "Восстановить резервную копию файлов". 'то, что я редактировал в коде' function BackupCheck_5(): Boolean; begin If LoadRadioButton.Checked then begin if DirExists(ExpandConstant('{app}\res_mods_old'))=True then begin DelTree(ExpandConstant('{app}\res_mods'), True, True, True); RenameFile(ExpandConstant('{app}\res_mods_old'), ExpandConstant('{app}\res_mods')); end else begin MsgBox('Нет доступных бекап-версий!', mbError, mb_Ok); Abort; end; end; end; Кстати, надо вписать еще удаление файлов обновлений хм.. может и мне стоит.. хорошая идея, подумаю :) Edited June 30, 2014 by Kotyarko_O Quote Share this post Link to post Short link Share on other sites
Andrew_Dark 8 #196897 Posted June 30, 2014 Мужики, подскажите, где линкольна найти можно? Есть к нему пара вопросов:) Quote Share this post Link to post Short link Share on other sites
Kotyarko_O 1,906 #196904 Posted June 30, 2014 подскажите, где линкольна найти можно? Знать бы, кто это :) Quote Share this post Link to post Short link Share on other sites
-zav- 188 #196914 Posted June 30, 2014 Знать бы, кто это :) 16-й президент США (1861—1865), освободитель американских рабов Quote Share this post Link to post Short link Share on other sites
Andrew_Dark 8 #196917 Posted June 30, 2014 Ну блин, я серьёзно, может кто в курсе как найти чела с ником Линкольн (на инглише написан, не помню как правильно). Quote Share this post Link to post Short link Share on other sites
Kotyarko_O 1,906 #196935 Posted June 30, 2014 (edited) Ну блин, я серьёзно, может кто в курсе как найти чела с ником Линкольн (на инглише написан, не помню как правильно). Тут, на форуме (тем более, в этой теме), не пересекался с таким. А зачем он тебе? - Может, кто другой помочь сможет? Edited June 30, 2014 by Kotyarko_O Quote Share this post Link to post Short link Share on other sites
ventura69 34 #196963 Posted July 1, 2014 (edited) хм.. может и мне стоит.. хорошая идея, подумаю :) За код спасибо. Поковыряю. Я пробовал сварганить такое, но, видимо, запутался в лексике. Идея не просто хорошая, а очень хорошая! :-) У себя, на свежем ноуте (2 месяца ему) очистил 12 Гб ненужного хлама обновлений от кВГ. В папке апдейт. Да! И самое главное: свою почту скиньте мне в личку. Перешлю письмо с комментариями и картинками, как воспользоваться нашим файлообменником. :-) Edited July 1, 2014 by ventura69 Quote Share this post Link to post Short link Share on other sites
AtotIK 580 #196980 Posted July 1, 2014 Когда же вы поймёте, что после каждого патча нужно выкачивать новый клиент? Вот так и рождается вайн о плохой работе клиента. Quote Share this post Link to post Short link Share on other sites
ventura69 34 #197006 Posted July 1, 2014 Когда же вы поймёте, что после каждого патча нужно выкачивать новый клиент? Вот так и рождается вайн о плохой работе клиента. Темны и непонятны Ваши речи, уважаемый... Я существо старое, дремучее (45 лет мне) и далекое от сленга, потому не соизволите изъясниться понятнее? "Выкачивать", "вайн"... По отдельности все буковки понятны, а суть фразы ускользнула от меня, Можно попросить попонятнее для новичка объяснить? Клиент я скачал еще при версии 0.9.0, обновил один раз до 0.9.1. Папка апдейта у меня была 12 Гб. Quote Share this post Link to post Short link Share on other sites
AtotIK 580 #197008 Posted July 1, 2014 ventura69, никаких обновлений через лоунчер, только новый клиент каждый патч. Quote Share this post Link to post Short link Share on other sites
ventura69 34 #197095 Posted July 1, 2014 Kotyarko_O, спасибо за код! Все гуд. Немного для себя подправил (отключил вывод ошибки). Теперь можно и дальше думать: как при бэкапе перескочить через окно с установкой модов. А то любителей с шаловливыми ручками хватает :-) Quote Share this post Link to post Short link Share on other sites
Kotyarko_O 1,906 #197101 Posted July 1, 2014 Теперь можно и дальше думать: как при бэкапе перескочить через окно с установкой модов. Играйся с функцией: function ShouldSkipPage(PageID: Integer): Boolean; Quote Share this post Link to post Short link Share on other sites
ventura69 34 #197145 Posted July 1, 2014 Играйся с функцией: function ShouldSkipPage(PageID: Integer): Boolean; Хм... А почему? Я склонялся к function NextButtonClick(CurPageID: Integer): Boolean; Если отмечен чекбокс на восстановление сборки, то имитируем нажатие кнопки Некст и перескакиваем в конец инсталлятора. Quote Share this post Link to post Short link Share on other sites
Kotyarko_O 1,906 #197147 Posted July 1, 2014 имитируем нажатие кнопки Некст Если сборка была ранее установлена - то выбранные при той установке пункты выберутся и сейчас (хотя как будет с ShouldSkipPage я точно не знаю, возможно, так же). Quote Share this post Link to post Short link Share on other sites
Andrew_Dark 8 #197205 Posted July 2, 2014 Тут, на форуме (тем более, в этой теме), не пересекался с таким. А зачем он тебе? - Может, кто другой помочь сможет? курсорами я видел он занимался раньше, а я сменить в игре хочу, надоел мне он. Quote Share this post Link to post Short link Share on other sites
ventura69 34 #197234 Posted July 2, 2014 Уважаемые, не риторический вопрос: как изменить текст в ReadyLabel на странице ReadyPage? Он даже на вкладке редактора форм затонирован и не подлежит изменению... Quote Share this post Link to post Short link Share on other sites