[boss911]

если папки files нет, то программа не выполняла никаких действий; если есть, то производила замену\добавление файла. »

Код:

[Files]
Source: "C:\1\file1.txt"; DestDir: "c:\MyProgr\files"; Flags: ignoreversion; Check: DirExists(ExpandConstant('{sd}\MyProgr\files'))

Используйте константы (переменные) для папок назначения (DestDir), в данном случае, исходя из вашего примера, я указал константу {sd}, которая означает букву системного раздела.

[marinaU]

boss911, спасибо большое

[Ivn78]

Еще помогите, плиз.
В инсталляторе создана пользовательская страница. Задача привязать к ней MsgBox, т.е. чтобы он появлялся сразу при переходе на кастомную страницу. Ведь вроде CurStep не видит "нарисованных" страниц?

[nik1967]

Ведь вроде CurStep не видит "нарисованных" страниц? »

А зачем тебе CurStep?

Код:

procedure CurPageChanged(CurPageID: Integer);
begin
 case CurPageID of
  wpWelcome: begin
  end;
  Кастомная_страница.ID: begin
   MsgBox('Hello.', mbInformation, MB_OK);
  end;
 end;
end;

Или тебе надо, что бы кастомная страница появлялась на этапе ssInstall, ssPostInstall, ssDone?

[Ivn78]

nik1967,
Еще вопрос...
В зависимости от определенных условий кастомная страница может создаваться, а может и нет. Если создана, то выполняется еще ряд условий. Как проверить наличие кастомной страницы?

[nik1967]

Ivn78, а не проще плясать от тех определённых условий, в зависимости от которых и создаётся/не создаётся кастомная страница?
С проверкой страницы что-то не сталкивался. Или может забыл

[Ivn78]

nik1967,
Уже пляшу) просто думал, есть более кошерный способ

[nik1967]

Ivn78, воспользоваться функцией SaveStringToFile

Из справки

Pascal Scripting: SaveStringToFile
Прототип:
function SaveStringToFile(const FileName: String; const S: AnsiString; const Append: Boolean): Boolean;

Описание:
Сохраняет указанную строку в указанный файл. Если Append является True и указанный файл уже существует, то текст будет добавлен к файлу, вместо его полной перезаписи. При успешном выполнении возвращает True, иначе False.

Комментарии:
Эта функция автоматически не записывает символ перевода строки. Если Append является True и в конце существующего файла отсутствует символ перевода строки, функция добавит содержимое переменной S к последней строке. Чтобы избежать этого, вы можете поместить символы перевода строки перед и после вашей строки:

SaveStringToFile('c:\filename.txt', #13#10 + 'the string' + #13#10, True);

[Ivn78]

nik1967,
Да, спасибо, уже разобрался.
А не подскажете, как на этапе ssDone открыть интернет-страницу в браузере по умолчанию?

[nik1967]

Код:

procedure CurStepChanged(CurStep: TSetupStep);
var  
  ErrorCode: Integer;  
begin  
  if CurStep = ssDone then ShellExec('open', 'http://forum.oszone.net/showthread.php?p=2773094#post2773094', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);   
end;