[TrueMage]

поиск будет не самый быстрый. Будет напрямую зависеть от забитости хардов. »

Я это понимаю. Но я не вижу другого варианта для российских пользователей, которые не озабачиваются лицензионностью игр и, соответственно, игра может быть просто скопирована, при этом ключ в реестре будет отсутствовать.

[kotyarko@fb]

Я это понимаю. Но я не вижу другого варианта для российских пользователей, которые не озабачиваются лицензионностью игр и, соответственно, игра может быть просто скопирована, при этом ключ в реестре будет отсутствовать. »

Поверьте мне, так лучше не делать.
А если нужный файл будет располагаться, например, где-то на системном диске? На его поиски могут уйти часы (в зависимости от имеющегося железа).
Было бы легче, раз в 10, если бы нужно было найти определённую папку.. А тут файл, будет не поиск, а безудержное веселье)

[TrueMage]

К сожалению не существует какого-то определенного имени папки, которое можно было бы поискать. Но вы правы, я, пожалуй, откажусь от этой идеи. Буду ставить банально либо по InstallPath из реестра, либо, если такого ключа нет, то в PF. Спасибо за помощь.

[habib2302]

как заменить последнюю страницу на msgbox о завершении установки

[kotyarko@fb]

как заменить последнюю страницу на msgbox о завершении установки »

Как-то так (написал по-быстрому, не проверил):

Код:

[Setup]
DisableFinishedPage=yes

[*Code]
Procedure CurStepChanged(CurStep: TSetupStep);
begin
 if CurStep = ssDone then
  MsgBox('Установка завершена!', mbInformation, MB_OK);
end;

[AlekseyPopovv]

Всем привет. Вопрос:
Мне через реестр нужно найти папку:
[HKEY_CURRENT_USER\Software\AlekseyPopovv]
"CaptureFolder"="C:\\Foto"
Эта папка может быть в любом другом месте и называться по другому.
Потом нужно проверить существует ли папка и выдать запрос на удаление.
Как это сделать?

[kotyarko@fb]

AlekseyPopovv, так?

Код:

var
 Path: String;
begin
 if RegQueryStringValue(HKCU, 'Software\AlekseyPopovv', 'CaptureFolder', Path) and (Path <> '') then
  if DirExists(ExpandConstant(Path)) then
   if MsgBox('Обнаружена существующая папка ' + Path + #13#10 + 'Удалить её?', mbConfirmation, MB_YESNO) = IDYES then
    DelTree(ExpandConstant(Path), True, True, True);
end;

[habib2302]

Как добавить checkbox в деинсталлятор для удаления сохранок\настроек

[Dodakaedr]

habib2302, через msgbox проще.

[habib2302]

Dodakaedr, подскажите скрипт