[ZVSRus]

vadjliss,

[Setup]
VersionInfoDescription=Tor Browser Bundle

[semiono]

Скажите пожалуйста, здесь код оптимальный или я чего-то лишнего нагородил? Работает правильно!

Код:

[Setup]
AppName=!
AppVerName=! 0.0.0.0
AllowUNCPath=no
DefaultDirName={code:GetDirName}
DirExistsWarning=no
DisableDirPage=yes
DisableFinishedPage=no
DisableProgramGroupPage=yes
DisableReadyMemo=yes
DisableReadyPage=no
DisableWelcomePage=no
ArchitecturesAllowed=x64
ArchitecturesInstallIn64BitMode=x64
MinVersion=0,6.0
Compression=lzma/ultra64
SolidCompression=yes
OutputDir=.
OutputBaseFilename=zzzz
TouchDate=2001-01-01
TouchTime=00:00:00
Uninstallable=no
UsePreviousAppDir=no

[.ode]
procedure ExitProcess(exitCode:integer); external 'ExitProcess@kernel32.dll stdcall';

function GetDirName(Value: string): string;
var
  InstallPath: string;
begin

  if RegQueryStringValue(HKCU, 'Software\$', 'Path', InstallPath) then
    Result := InstallPath
    else

  begin
  MsgBox('$ not exist', mbCriticalError, mb_Ok)
  ExitProcess(0)
  end

end;

function x(const a: string): Boolean;
begin
  Result := not RegValueExists(HKCU, 'Software\$', 'EEKbLabelWhites')
  if not Result then
    RegDeleteValue(HKCU, 'Software\$', 'EEKbLabelWhites')
end;

function y(const a: string): Boolean;
begin
  Result := not RegValueExists(HKCU, 'Software\$', 'EEKbViewStyle')
  if not Result then
    RegDeleteValue(HKCU, 'Software\$', 'EEKbViewStyle')
end;

function z(): Boolean;
begin
  Result := not RegValueExists(HKCU, 'Software\$', 'EEKbViewStyle')
end;

[Registry]
Root: HKCU; Subkey: "Software\$"; ValueType: string; ValueName: "EEKbLabelWhites"; ValueData: "0"; Permissions: everyone-full; Check: x('')
Root: HKCU; Subkey: "Software\$"; ValueType: string; ValueName: "EEKbViewStyle"; ValueData: "4"; Permissions: everyone-full; Check: y('')

[Files]
Source: "New File.txt"; DestDir: "{code:GetDirName}"; Flags: ignoreversion; Permissions: everyone-full; Check: z
Source: "New File (2).txt"; DestDir: "{code:GetDirName}"; Flags: ignoreversion; Permissions: everyone-full; Check: not z

[R.i.m.s.k.y.]

semiono, ну тебе же камрад El Sanchez выше дал изящный работающий пример

[semiono]

R.i.m.s.k.y., так я этот пример и допиливаю, реальный же инсталл сложнее, но вприципе всё готово, просто думаю может оптимизировать возможно.

Меня, кстати, смущает пустой ввод Check: x(''), хотя там можно что угодно написать, но работает правильно
Просто по поводу кода если я лишнего наворотил, поэтому спрашиваю

[nikolas2418]

Люди, такой вопрос. Создал инсталлятор, всё скомпилировалось без перебоев, затем попробовал поставить прогу, всё отлично встало, НО при повторном запуске инсталлятора, пункт выбора пути установки просто пропускается и он по дефолту ставит в ту папку, куда была установлена прога в первый раз. Помогите, пожалуйста.

[Nordek]

НО при повторном запуске инсталлятора, пункт выбора пути установки просто пропускается и он по дефолту ставит в ту папку, куда была установлена прога в первый раз. »

Ничего не понял.

Для страницы SelectDirPage (Указание каталога для установки):

Если в секции [Setup] присутствует параметр DisableDirPage, то удалите его вместе со значением.

Если не желаете использовать каталог предыдущей установки, то в секцию [Setup] добавьте следующий параметр со значением:

Код:

UsePreviousAppDir=False

Для страницы SelectProgramGroupPage (Указание каталога группы в меню пуск)

Если в секции [Setup] присутствует параметр DisableProgramGroupPage, то удалите его вместе со значением.

Если не желаете использовать каталог в меню Пуск предыдущей установки, то в секцию [Setup] добавьте следующий параметр со значением:

Код:

UsePreviousGroup=False

P.S По вопросам связанные со скриптами, обращайтесь в тему: Скрипты Inno Setup. Помощь и советы

[Antzav]

Всем привет! С inno setup познакомился недавно, поэтому ответ на мой вопрос может быть очевидным. Так что заранее извиняюсь за вероятно нубский вопрос. Нужно сделать инсталлятор, который устанавливает скрипт в определенные папки в зависимости от версии программы, для которой сделан скрипт, т.е. в моем случе есть несколько ключей реестра с путями установки. Нужно вывести для каждого чекбокс и возможность указать путь вручную и произвести в каждый отмеченный путь установку. Ключи из реестра у меня получилось собрать, а вот вывести чекбоксы и обработать их не получается. Кто-нибудь сталкивался с такой задачей?

[nikolas2418]

Спасибо большое

[comsun]

Просьба помочь советом - что нужно добавить в скрипт установки, что бы программа в зависимости от версии Windows - XP или 2000 копировала в апку xxl файл x1 или x2 соответственно?

[boss911]

что бы программа в зависимости от версии Windows - XP или 2000 копировала в папку xxl файл x1 или x2 соответственно? »

Код:

[Files]
Source: x1.exe; DestDir: {app}\xxl; MinVersion: 0,5.1; OnlyBelowVersion: 0,5.2
Source: x2.exe; DestDir: {app}\xxl; MinVersion: 0,5.0; OnlyBelowVersion: 0,5.1