Скрипты Inno Setup. Помощь и советы [часть 4]

R.i.m.s.k.y. · Конфигурация компьютера

Johny777,
1. либо ставь Тру либо удали блок

Код:

function InitializeSetup(): Boolean;
begin
 Result:=True;
end;

Если InitializeSetup возвращает Фолсе инсталлер закрывается и не пискнет, а булевая функция возвращает Фолсе по-умолчанию если не задано иное.

2. Никак, в твоем архиве много мелких файлов, пока все переберет...
Но вот почему тупит когда файлов нет так это потому что у тебя цикл for i:= 0 to GetArrayLength(ArrayOfMask)-1 гоняется вхолостую
добавь перед ним условие "если есть твои папки тогда уже искать"
Он вообще у тебя коряво сделан, зачем ты в цикле перебираешь когда достаточно и без цикла просто

Код:

  StartFolder:= ExpandConstant('{src}\..\common\half-life 2\hl2\SAVE'); // задаём папку откуда начинать поиск
  StartFolder2:= ExpandConstant('{src}\..\common\half-life 2 episode one\episodic\SAVE'); // задаём папку откуда начинать поиск
  StartFolder3:= ExpandConstant('{src}\..\common\half-life 2 episode two\ep2\SAVE'); // задаём папку откуда начинать поиск
  StartFolder4:= ExpandConstant('{src}\..\common\portal\portal\SAVE'); // задаём папку откуда начинать поиск
  Mask:= '*.sav'; if FindFile(StartFolder) then hl2_SAVE_Checkbox.Enabled := true;
  Mask:= '*.sav'; if FindFile(StartFolder2) then ep1_SAVE_CheckBox.Enabled := true;
  Mask:= '*.sav'; if FindFile(StartFolder3) then ep2_SAVE_CheckBox.Enabled := true;
  Mask:= '*.sav'; if FindFile(StartFolder4) then portal_SAVE_CheckBox.Enabled := true;

кстати я смотрю ты халфу собираешь? у тебя нет случаем HD текстур пака? раньше видел но не удосужился скачать, теперь хочу но не могу найти

Johny777 · Конфигурация компьютера

Цитата R.i.m.s.k.y.:

у тебя нет случаем HD текстур пака? »

R.i.m.s.k.y. · Конфигурация компьютера

Johny777, ну тогда сжимай получше, у меня канал тонкий

Johny777 · Конфигурация компьютера

R.i.m.s.k.y.,
будет прохладным летним вечером!

insombia · Отправлено: **14:28, 06-05-2012** | #**1845**

Всем привет,меня долго здесь не было по этому не знаю,выходили ли какие то новые версии iswin7 и isdone?

alert30 · Конфигурация компьютера

insombia, нет.

Johny777 · Конфигурация компьютера

намутил пример (под свои нужды, но думаю кому-то пригодится

)
имеем чекбокс отвечающий за установку например директа.
Если во внешней папке директ есть, то он (чекбокс) активен.
В противном случае не активен
Но тут проблема.
Что если инсталл на диске, а директа рядом нет?
тогда добавляется кнопка "показать"
Указываем и если по указанному пути директ есть, то пути передаются директории "откуда ставить" и "рабочей папке"

Код:

[Setup]
AppName=My Program
AppVerName=My Program 1.5
DefaultDirName={pf}\My Program
DirExistsWarning=no
DisableWelcomePage=yes

[  Code]
var
  NewButton1: TNewButton;
  QuickLaunchIcon: TCheckBox;
  Res: Integer;
  S: string;

function MakeQuickLaunchIcon: Boolean;
begin
  Result:=QuickLaunchIcon.Checked;
end;

procedure DirOnClick(Sender: TObject);
var
  DirEditString: String;
  
begin
  DirEditString := WizardForm.DirEdit.Text;
  if BrowseForFolder('Выберите папку из списка и нажмите «ОК»', S, True) then
    begin
      If FileExists(S+'\DXSETUP.exe') then QuickLaunchIcon.Enabled := true;
    end;
end;

procedure InitializeWizard();
begin

  WizardForm.OuterNotebook.Visible := false;
  WizardForm.Color := clWhite;
  WizardForm.Bevel.Visible := false;
  WizardForm.Caption:= 'DirectX Search Test';

  QuickLaunchIcon := TCheckBox.Create(WizardForm);
    with QuickLaunchIcon do
      begin
        Parent := WizardForm;
        Caption := 'Установить директ';
        Left := ScaleX(100);
        Top := ScaleY(160);
        Width := ScaleX(130);
        Height := ScaleY(25);
        TabOrder := 0;
        Checked := False;
        Enabled := False;
      end;
      
  NewButton1 := TNewButton.Create(WizardForm);
    with NewButton1 do
      begin
        Name := 'NewButton1';
        Parent := WizardForm;
        Left := QuickLaunchIcon.Left + QuickLaunchIcon.Width + ScaleX(10);
        Top := QuickLaunchIcon.Top;
        Width := ScaleX(160);
        Height := ScaleY(20);
        Caption := 'указать путь к DXSETUP.exe';
        OnClick := @DirOnClick;
      end;
      
   If FileExists(ExpandConstant('{src}\DirectX\DXSETUP.exe')) then QuickLaunchIcon.Enabled := true;
   
end;


procedure CurPageChanged(CurPageID: Integer);
begin
  if CurPageID=wpReady then
    begin
      If FileExists(ExpandConstant('{src}\DirectX\DXSETUP.exe')) and (QuickLaunchIcon.Checked = true) then                            ///// эти две строки имеют приоритет выше, тк идут первыми. 
      Exec(ExpandConstant('{src}\DirectX\DXSETUP.exe'), '', ExpandConstant('{src}\DirectX'), SW_SHOW, ewWaitUntilTerminated, Res);   /// Если пользователь считает, что лучше взять не тот что в комплекте то нижние 2 поменять с этими двумя, 
    end
  else  /// добавил, тк если снаружи видит и в пути есть устанавливал бы 2 раза
    begin
      If FileExists(S+'\DXSETUP.exe') and (QuickLaunchIcon.Checked = true) then
      Exec(S+'\DXSETUP.exe', '', S, SW_SHOW, ewWaitUntilTerminated, Res);
    end;
end;


procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean);
begin
  Confirm := False;
end;

El Sanchez · Конфигурация компьютера

Цитата Johny777:

намутил пример (под свои нужды, но думаю кому-то пригодится »

Johny777, пара замечаний. Начнем сверху вниз:

Процедура DirOnClick. Кликаем кнопку, выбираем папку с директом, видим, что чекбокс стал активным, радуемся, кликаем еще раз, выбираем папку, где нет директа, видим, что чекбокс все равно активен, печалимся и меняем:
Код:
```
If FileExists(S+'\DXSETUP.exe') then QuickLaunchIcon.Enabled := true;
на
QuickLaunchIcon.Enabled := FileExists(S+'\DXSETUP.exe');
```
Процедура InitializeWizard. При создании чекбокса свойство Enabled напиши как
Код:
```
Enabled := FileExists(ExpandConstant('{src}\DirectX\DXSETUP.exe'));
...
, а строку If FileExists(ExpandConstant('{src}\DirectX\DXSETUP.exe')) then QuickLaunchIcon.Enabled := true удалить
```
У тебя это не ошибка, но строчкой кода меньше.

Процедура CurPageChanged. Удалить полностью. На wpReady {src}-овый директ будет запущен, хотя на wpReady ничего не должно запускаться. Вернись на страницу назад и снова на wpReady, снова пойдет установка. На остальных страницах при наличии директа в S тоже начнется установка. Сколько там страниц у Inno? И на каждой пойдет установка директа, поэтому CurPageChanged не годится. Запуск директа должен быть не раньше, чем пользователь нажмет кнопку Установить. Это либо использовать NextButtonClick (CurPageID = wpReady), либо CurStepChanged (CurStep=ssInstall).

Johny777 · Конфигурация компьютера

El Sanchez,
Спасибо за исправления!
Стало ещё проще и удобнее.

Цитата El Sanchez:

поэтому CurPageChanged не годится »

И не думал использовать. Только для демонстрации, чтоб инсталл не перезапускать
В скрипте халфы всё это выполняется на шаге ssPostInstall

вот так (пока ещё поиск директа и прочего не добавлял)

Код:

procedure CurStepChanged(CurStep: TSetupStep); 
var
  res: integer; 
begin
/// проценты установки /// часть 2 из 4 /// начало
if CurStep = ssInstall then
begin
  PercentsTimer:= SetTimer(0, 0, 100, WrapTimerProc(@PercentsProc, 4));
end;
/// конец
if CurStep = ssPostInstall then
begin
  s2_hl2:= hl2_Launch_Edit.Text;
  s1_hl2:= ExpandConstant('-steam -game hl2 -appid 220');
  if CurStep = ssPostInstall then 
  begin
  if hl2_icon_Checkbox.Checked then
    CreateShellLink(ExpandConstant('{commondesktop}\Half-Life 2.lnk'), '',
    ExpandConstant('{app}\common\half-life 2\hl2.exe'),s1_hl2 + s2_hl2, ExpandConstant('{app}\common\half-life 2'), ExpandConstant('{app}\common\half-life 2\hl2.ico'), 0, SW_SHOWNORMAL);
  end;
  s2_ep1:= ep1_Launch_Edit.Text;
  s1_ep1:= ExpandConstant('-steam -game episodic -appid 380');
  begin
  if hl2_ep1_icon_Checkbox.Checked then
    CreateShellLink(ExpandConstant('{commondesktop}\Half-Life 2 Episode One.lnk'), '',
    ExpandConstant('{app}\common\half-life 2 episode one\hl2.exe'),s1_ep1 + s2_ep1, ExpandConstant('{app}\common\half-life 2 episode one'), ExpandConstant('{app}\common\half-life 2 episode one\hl2.ico'), 0, SW_SHOWNORMAL);
  end;
  s2_ep2:= ep2_Launch_Edit.Text;
  s1_ep2:= ExpandConstant('-steam -game ep2 -appid 420');
  begin
  if hl2_ep2_Icon_CheckBox.Checked then
    CreateShellLink(ExpandConstant('{commondesktop}\Half-Life 2 Episode Two.lnk'), '',
    ExpandConstant('{app}\common\half-life 2 episode two\hl2.exe'),s1_ep2 + s2_ep2, ExpandConstant('{app}\common\half-life 2 episode two'), ExpandConstant('{app}\common\half-life 2 episode two\hl2.ico'), 0, SW_SHOWNORMAL);
  end;
  s2_portal:= portal_Launch_Edit.Text;
  s1_portal:= ExpandConstant('-steam -game portal -appid 400');
  begin
  if portal_Icon_CheckBox.Checked then
    CreateShellLink(ExpandConstant('{commondesktop}\Portal.lnk'), '',
    ExpandConstant('{app}\common\portal\hl2.exe'),s1_portal + s2_portal, ExpandConstant('{app}\common\portal'), ExpandConstant('{app}\common\portal\portal.ico'), 0, SW_SHOWNORMAL);
  end;
  /// задачи
  If hl2_borealis_CheckBox.Checked then   /// Aurora Borealis
  begin
    ExtractTemporaryFile('Aurora_Borealis.exe');
    Exec(ExpandConstant('{tmp}\Aurora_Borealis.exe'), '', ExpandConstant('{app}'), SW_SHOW, ewWaitUntilTerminated, Res);
  end;
  /// обновления
  If hl2_update_Checkbox.Checked then
  begin
    FilesMemo.Lines.Add('/// Half-Life 2 ///');
    Exec(ExpandConstant('{src}\outer\update\hl2_update.exe'), '', ExpandConstant('{app}'), SW_SHOW, ewWaitUntilTerminated, Res);
  end;
  If ep1_update_Checkbox.Checked then
  begin
    FilesMemo.Lines.Add('/// Half-Life 2 Episode One ///');
    Exec(ExpandConstant('{src}\outer\update\hl2_ep1_update.exe'), '', ExpandConstant('{app}'), SW_SHOW, ewWaitUntilTerminated, Res);
  end;
  If ep2_update_Checkbox.Checked then
  begin
    FilesMemo.Lines.Add('/// Half-Life 2 Episode Two ///');
    Exec(ExpandConstant('{src}\outer\update\hl2_ep2_update.exe'), '', ExpandConstant('{app}'), SW_SHOW, ewWaitUntilTerminated, Res);
  end;
  If portal_update_Checkbox.Checked then
  begin
    FilesMemo.Lines.Add('/// Portal ///');
    Exec(ExpandConstant('{src}\outer\update\portal_update.exe'), '', ExpandConstant('{app}'), SW_SHOW, ewWaitUntilTerminated, Res);
  end;
  /// директ и прочее
  If DirectX_Checkbox.Checked then
  begin
    FilesMemo.Lines.Add('/// Устанавливается DirectX ///');
    Exec(ExpandConstant('{src}\outer\DirectX\DXSETUP.exe'), '/silent', ExpandConstant('{src}\outer\DirectX'), SW_SHOW, ewWaitUntilTerminated, Res);
  end;
  If VisualC_Checkbox.Checked then
  begin
    FilesMemo.Lines.Add('/// Устанавливается VisualC++ ///');
    Exec(ExpandConstant('{src}\outer\VCRedist\vcredist_x86.exe'), '/q', ExpandConstant('{src}\outer\VCRedist'), SW_SHOW, ewWaitUntilTerminated, Res);
  end;
  
  If Font_Checkbox.Checked then
  begin
    FilesMemo.Lines.Add('/// Извлекаются шрифты ///');
    
    ExtractTemporaryFile('BOXROCKET.ttf');
    ExtractTemporaryFile('fontinst.exe');
    ExtractTemporaryFile('fontinst.inf');
    ExtractTemporaryFile('HALFLIFE2.ttf');
    ExtractTemporaryFile('HL2crosshairs.ttf');
    ExtractTemporaryFile('HL2EP2.ttf');
    ExtractTemporaryFile('marlett.ttf');
    
    FilesMemo.Lines.Add('/// Устанавливаются шрифты ///');
    Exec(ExpandConstant('{tmp}\fontinst.exe'), '/q', ExpandConstant('{tmp}'), SW_SHOW, ewWaitUntilTerminated, Res);
  end;
end;
end;

где FilesMemo это мемо со списоком извлекаемых файлов на странице установки

wertulll · Отправлено: **18:15, 07-05-2012** | #**1850**

ребятушки подскажите пожалуйста как правильно текстурировать кнопку отмена на деинсталяторе