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

Лександер,
Так это и есть снаружи, параметр z передаешь инсталлеру, InitializeSetup проверяет задан ли он (в виде \z, /z, -z), если есть такой переменной paramZ присваивается Тру
И вот тут у меня ошибочка, paramZ : boolean; должен объявляться в начале секции Code что быть доступным все функциям.
Потом в конце установки (процедура CurStepChanged) если параметр тру - выполняем чего там хотели.

можно попробовать компонентами решить »

Я не буду фрагментировать моск мифическими Param1, дам прям кусок из своего инсталлера, повырезав лишнее, так что если будет ругаться что не объявлены переменные или Энда не хватает - допишите сами.

Код:

[Components]
# define haaliaviDesc "Haali - воспроизводить avi"
Name: haaliavi; Description: {#haaliaviDesc}; Check: HaaliExists

[_Code]
var paramZ, silent, haaliavi : integer;

function InitializeSetup(): Boolean;
var i : integer; s, st : string;  
begin
  paramZ:= -1; silent:= -1; haaliavi := -1; // три состояния: -1 - не изменялось, 0 - нет, 1 - да
  for i:=2 to ParamCount do begin
    if ( (Lowercase(ParamStr(i)) = Lowercase('/silent')) or (Lowercase(ParamStr(i)) = Lowercase('/verysilent')) ) then begin
      silent := 1;
      break;
    end;
  end;
  for i:=2 to ParamCount do begin
    st := Lowercase(ParamStr(i)); StringChangeEx(st, '/', '', True); StringChangeEx(st, '\', '', True); StringChangeEx(st, '-', '', True);
    case st of 
      Lowercase('z') : paramZ := 1;
      Lowercase('haaliavi') : haaliavi := 1;
    end;
  end;
end;


procedure InitializeWizard();
  if (silent = 1) then begin
    if ( (haaliavi = 1) and haaliexists) then WizardForm.ComponentsList.Checked[WizardForm.ComponentsList.Items.IndexOf('{#haaliaviDesc}')]:=True;
  end;
end;

procedure CurStepChanged(CurStep: TSetupStep);
var res : integer; 
begin
  if ( CurStep=ssDone) and (paramZ = 1) ) then Exec('x.exe', ' /z ' ,ExpandConstant('{...}'),SW_HIDE,ewWaitUntilTerminated,res);
end;

[Gnom_aka_Lexander]

R.i.m.s.k.y., Я неточно выразился, а что если для разных случаев нужно разные параметры? Для одного случая один ключ, для другог другой...

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

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

поточнее чего хотим

[Gnom_aka_Lexander]

R.i.m.s.k.y., Смотри, комуто нужно ставить с ключем \z, комуто \r, комуто \a, комуто \s, и может еще полтора десятка, я не говорю о возможности их комбинации - можно это как-то реализовать? Или каждый ключ и комбинацию в коде прописывать?

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

Или каждый ключ и комбинацию в коде прописывать? »

да, каждый поотдельности
инно понимает параметры только со слэшэм "/", т.е. если ему написать -silent или \silent он не поймет.
В моем примере выше собственные параметры можно писать вообще одной буквой z, но параметры инно надо писать как положено, /norestart к примеру.

[vahe-91]

R.i.m.s.k.y.,
брат, насколько знаю вместо [_code] в скрипте должен быть [code], а в конце вместо ; ТОЧКА. Если да, то во время компиляции пишет unknown identifier 'x'

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

насколько знаю вместо [_code] »

Если написать без _ то форумный движок воспринимает его как тэг и каверкает, поэтому здесь принято добавлять _ перед словом Code.

а в конце вместо ; ТОЧКА »

секция Code закрывается end.
если есть ошибки - исправь код, брат, он не кусается.

то во время компиляции пишет unknown identifier 'x' »

там подразумевается что человек сам подставит путь к его запускному файлу x.exe для которого нужны параметры. Возьми в апострофы 'x.exe'.

[vahe-91]

R.i.m.s.k.y.,
спасибо, ты очень добр

[nik1967]

Здравствуйте, уважаемые форумчане! Подскажите, как можно организовать постоянное сканирование реестра и файлов, а не только в момент запуска инсталлятора? Для чего:

Код:

  if RegValueExists({#ValueExists}) then
  if RegQueryStringValue({#ValueExists}, GamePath) then
  if FileExists({#FileExists}) then GameAlreadyInstall:=True else GameAlreadyInstall:=False;

нужно, что бы после удаления ветки реестра или файла менялось значение GameAlreadyInstall в режиме реального времени.

---

С помощью операторов while и do пробовал зациклить, но не могу условия сообразить.
А для чего? Делаю авторан на Inno, если нет записи в реестре - установить игру, авторан сворачивается, после установки игры (и соответственно появления записи в реестре) авторан разворачивается и - запустить игру. В AutoPlay Media Studio всё это реализуется довольно просто, но мне надо в Inno .

[vahe-91]

R.i.m.s.k.y.,
для примера скомпилировал это, ничего не получилось. Установщик даже не запускается. Что не правильно ?

Код:

[Setup]
AppId={{5B88473B-FA3C-4A80-8D78-C8960C9C3377}
AppName=X  
AppVersion=1.0.0
AppPublisher=Ya
CreateAppDir=no 
OutputBaseFilename=setup
Compression=none 

[Files]
Source: "C:\Documents and Settings\Administrator\Desktop\x.exe"; 
DestDir: "{tmp}"; Flags: ignoreversion 

[_Code] 
var paramZ:boolean; 
function InitializeSetup(): Boolean;
var i:integer; x,s, st:string;
begin    for i:=2 to ParamCount do 
begin st:=Lowercase(ParamStr(i)); 
StringChangeEx(st, '/', '', True); 
StringChangeEx(st, '\', '', True); StringChangeEx(st, '-', '', True); 
case st of  Lowercase('z') : paramZ := true; 
end;  
end;  
end;
procedure CurStepChanged(CurStep: TSetupStep);  
var res : integer;  
begin    if (CurStep=ssDone) and (paramZ) then 
Exec('{tmp}\x.exe', ' /z ' ,ExpandConstant('{...}'),SW_HIDE,ewWaitUntilTerminated,res);  
end; end.