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

спасибо, ты очень добр »

Всегда пожалуйста, если я знаю ответ, то отвечаю на конкретные вопросы. Вопросы общего плана "Как сделать заипок" проходят мимо. Желающие получить код на халяву так же идут следом. Если есть вопросы - сначала почитай что в шапке, поверь, это уменьшит вопросы наполовину. Я сам начинал с шапки.

Что не правильно »

InitializeSetup - это сис.функция, если она вернет Фалсе* инсталлер закроется и не пикнет. Что-то возвращает Фалсе. Потыкай Result := True в разные места, примерно так.

Код:

 
[_Code] 
var paramZ:boolean; 
function InitializeSetup(): Boolean;
var i:integer; x,s, st:string;
begin    
Result := True;
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; 
Result := True;
end;  
end;  
end;

Такая фенька с расстановкой Result := True; у меня была на старой версии инно. тут Лександер страниц 5 назад выкладывал ультра инно с препроцессором и тп., на нем у меня без этих подстановок робит

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

* ничего что я по-английски

[vahe-91]

R.i.m.s.k.y.,
после result:=true вообще не компилируется, пишет begin ему нужен, пишу в этом месте begin, а он мне, что result это unknown identifier. Поставил инно с препроцессором, которые выкладывал Лександр не работает.

[Serega]

а можете мне дать целую готовую командную строку rar? »

к сожалению с ним не знаком, т.к. rar'ом не пользуюсь, на мой взгляд 7z лучше.

но в более новых темах для XP под Висту и Севен, где прогрессбар цельный, он не отображается »

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

расположить не над основным прогрессбаром, а над фейковым? Было бы резоннее. »

Как говорят, на вкус и цвет...
Можете сами нарисовать дополнительный статик и выводить в нём сообщения.

Добавление перевода в секцию [CustomMessages] проблему не решает. Сделать два языка в секции [Types] не получается »

Решается это двумя способами:
1. В каждом своём скрипте прописываете через [CustomMessages] перевод для каждого языка и уже указываете в [Types] свою переменную, т.е.:

Код:

[CustomMessages]
russian.CustomInstallation=Выборочная установка
english.CustomInstallation=Custom installation

[Types]
Name: custom; Description: {cm:CustomInstallation}; Flags: iscustom

2. Открываете языковой файл, допустим Russian.isl, распаложен в папке Languages, находите в конце файла секцию [CustomMessages] и добавляете в неё новой строкой

Код:

CustomInstallation=Выборочная установка

и так далее для каждого языка, т.е. для English.isl:

Код:

CustomInstallation=Custom installation

а в скрипте уже просто пишите

Код:

[Types]
Name: custom; Description: {cm:CustomInstallation}; Flags: iscustom

С помощью операторов while и do пробовал зациклить, но не могу условия сообразить. »

Код:

  while True do
    begin
      GameAlreadyInstall := RegQueryStringValue({#ValueExists}, GamePath) and FileExists({#FileExists});
      case GameAlreadyInstall of
        True:
          begin
            // здесь что-то делаем
          end;
        False:
          begin
            // здесь что-то делаем
          end;
      end;
//      if условие then
        Break; // выходим из цикла
    end;

[Serega]

вообще не компилируется »

Код:

[Code]
var
  paramZ: Boolean;
  
function InitializeSetup(): Boolean;
var
  i: Integer;
  st: string;
begin
  Result := True;
  for i := 2 to ParamCount do
    begin
      st := Lowercase(ParamStr(i));
      StringChangeEx(st, '/', '', True);
      StringChangeEx(st, '\', '', True);
      StringChangeEx(st, '-', '', True);
      paramZ := st = 'z';
    end;
end;

[vahe-91]

Serega,
а сейчас компилируется, установщик запускается, а если запустить с ключом /z, то будет тоже самое что и без него

[Serega]

а если запустить с ключом /z, то будет тоже самое что и без него »

Если вы просто скопировали из предыдущего поста, то естественно.
Я лишь подкорректировал код R.i.m.s.k.y., чтоб было понятней:

Код:

var
  paramZ: Boolean;

function InitializeSetup(): Boolean;
var
  i: Integer;
  st: string;
begin
  Result := True;
  for i := 2 to ParamCount do
    begin
      st := Lowercase(ParamStr(i));
      StringChangeEx(st, '/', '', True);
      StringChangeEx(st, '\', '', True);
      StringChangeEx(st, '-', '', True);
      paramZ := st = 'z';
    end;
  if paramZ then
    MsgBox('Ключ "z", присутствует в командной строке.', mbInformation, MB_OK);
end;

[Sotonisto]

Помогите пожалуйста, как убрать черную обводку?»

Ну вот тебе прозрачный текст

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

"Новая" версия инсталла для Fallout NV
Изменения: добавил чебоксы и музыку во время инсталляции, немного подправил скрипт.
СКАЧАТЬ АРХИВ
P.S.: Спасибо за помощь с чебоксами vint56'у с Ru-board.

[vahe-91]

Если вы просто скопировали из предыдущего поста, то естественно. »

а как именно должно быть ? я всего 2 дня изучаю Инно

[Serega]

я всего 2 дня изучаю Инно »

Нашёл на предыдущей странице ваш пост, с запуском файла x.exe, должно быть так:

Пример

Код:

[Files]
Source: C:\Documents and Settings\Administrator\Desktop\x.exe; Flags: dontcopy

[Code]
var
  paramZ: Boolean;

function GetKeyParamStr(const key: string): Boolean;
{ функция вернёт True, если ключ key присутствует в командной строке }
var
  i: Integer;
  s, t: string;
begin
  try
    Result := False;
    t := Lowercase(key);
    for i := 2 to ParamCount do
      begin
        s := Lowercase(ParamStr(i));
        if Pos(t, s) > 0 then
          begin
            StringChangeEx(s, '/', '', True);
            StringChangeEx(s, '\', '', True);
            StringChangeEx(s, '-', '', True);
            Result := t = s;
          end;
        if Result then Break;
      end;
  finally
    SetLength(s, 0);
    SetLength(t, 0);
  end;
end;

function InitializeSetup(): Boolean;
begin
  Result := True;
  paramZ := GetKeyParamStr('z');
end;

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

[vahe-91]

Serega,
получилось, спасибо тебе большое . А что еще добавить, чтобы без ключа /z запустилась x.exe без каких либо ключей. Если его запуск прописать в [run], то он запустится и во время запуска с ключом /z.