[saurn]

И то папка по умолчанию не ставится и не знаю как добавить ниже текст и эдитам. Подскажите еще где нужно исправить в скрипте, что бы программа перед установкой определяла установлена ли программа (AviSynth) или нет. Если не установлена, то запускала установку. »

читать дальше »

Код:

[Code]
var
  DataDirPage: TInputDirWizardPage;

function InitializeSetup(): Boolean;
begin
  if RegKeyExists(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{#SetupSetting("AppID")}_is1') then
  begin
    MsgBoxEx(0, 'Данная программа уже установленна', '', MB_OK, 0, 0)
    Result := False
  end else
    Result := True;
end;

procedure InitializeWizard;
begin
  DataDirPage := CreateInputDirPage(wpSelectDir, 'Параметры по умолчанию', 'Установка папки по умолчанию', 'Чтобы продолжить, нажмите кнопку Далее. Если вы хотите выбрать различные папки, нажмите кнопку Обзор', False, '');
  DataDirPage.Add('');
  DataDirPage.Add('');

  DataDirPage.Values[0] := 'D:\';
  DataDirPage.Values[1] := 'D:\';
end;

Подскажите как сделать эти два файла скрытыми »

Код:

[Files]
Source: {app}\Dvd_icon.ICO; DestDir: {app}; Flags: ignoreversion; attribs: hidden;
Source: {app}\Dvd_uninstall.ico; DestDir: {app}; Flags: ignoreversion; attribs: hidden;

Советую прикрутить сюда код для автоопределения диска установки из шапки http://forum.oszone.net/post-1217528-97.html , мало ли, вдруг у конечного пользователя не будет диска D