[Devils Night]

А что это дает? Разницы не заметил. »

ShowTasksTreeLines - Это Показать линии дерева задач.

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

ShowTasksTreeLines=true » А что это дает? Разницы не заметил. »

тонкие линии на странице задач
видна при наличии дочерних и родительстких компонентов, у тебя их нет и линии тоже нет

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

[BlackInferno]

Все, супер, наконец-то все отлично!
Всем спасибо за помощь!

[Johny777]

Вопрос
у меня на странице 6 чекбоксов
как блокировать кнопку "далее" если ни один не отмечен?
WizardForm.SelectDirPage.OnChange разве есть?

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

Johny777, через NextButtonClick не пройдет?

Код:

function NextButtonClick(CurPageID:integer): Boolean;
begin
  Result:= True; 
  if (CurPageID = твоя тсраница) then begin
       if (проверка чекбоксов) then  Result := False;
      end      
      else Result := True;
    end; //if (CurPageID = твоя тсраница)
end;

или делаешь чекалку кликов свой страницы и добавляешь в ней
WizardForm.NextButton.Enabled:= False else WizardForm.NextButton.Enabled:= True;
вот к примеру у меня на списке компонентов:

Код:

procedure ComponentOnClick(Sender: TObject);
begin
  if CheckComponents = '' then WizardForm.NextButton.Enabled:= False else WizardForm.NextButton.Enabled:= True;
  WizardForm.ComponentsList.Repaint;
end;

procedure InitializeWizard();
...
WizardForm.ComponentsList.OnClick := @ComponentOnClick;

[Johny777]

R.i.m.s.k.y.,
сделал так

Код:

procedure Enable(Sender: TObject);
begin
  WizardForm.NextButton.Enabled := hl2_A_CheckBox.Checked or ep1_A_CheckBox.Checked or ep2_A_CheckBox.Checked or portal_A_CheckBox.Checked or hl2_SAVE_CheckBox.Checked or ep1_SAVE_CheckBox.Checked or ep2_SAVE_CheckBox.Checked or portal_SAVE_CheckBox.Checked;
end;

а каждому из 6 чекбоксов приписал OnClick :=@Enable;
Тк например ep2_SAVE_CheckBox.Checked всё равно что True, как и все остальные

кнопка далее упорно не хотела блокироваться в InitializeWizard, зато так работает:

Код:

procedure CurPageChanged(CurPageID: Integer);
begin
  if CurPageID=wpSelectDir then
  begin
    WizardForm.NextButton.Enabled := false;
  end;
end;

хотя все страницы выключены(какие были - "приветствия" и "готовности"). То бишь это (wpSelectDir) первая страница.

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

Johny777, у тебя самолепные чекбоксы? я про них не знай, звиняй

[Johny777]

Подскажите пожалуйста
после копирования идёт сжатие в самоизвлекающийся 7Zip.exe

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

Код:

#define MyAppName "Backup"
#define Save_Folder "saved"


[Setup]
SourceDir=.
OutputDir=Source Engine 15\uninstall
AppName={#MyAppName}
AppVerName={#MyAppName}
AppVersion={#MyAppName}
DefaultDirName=C:\{#Save_Folder}
OutputBaseFilename={#MyAppName}
Uninstallable=false
ShowLanguageDialog=auto
LanguageDetectionMethod=uilanguage
DisableWelcomePage=yes
DisableReadyPage=yes


[Files]
Source: {src}\..\common\half-life 2\bin\stats.bin; DestDir: {app}\common\half-life 2\bin; Flags: external ignoreversion recursesubdirs createallsubdirs;
Source: {src}\..\common\half-life 2 episode one\bin\stats.bin; DestDir: {app}\common\half-life 2 episode one\bin; Flags: external ignoreversion recursesubdirs createallsubdirs;
Source: {src}\..\common\half-life 2 episode two\bin\stats.bin; DestDir: {app}\common\half-life 2 episode two\bin; Flags: external ignoreversion recursesubdirs createallsubdirs;
Source: {src}\..\common\portal\bin\stats.bin; DestDir: {app}\common\portal\bin; Flags: external ignoreversion recursesubdirs createallsubdirs;
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
Source: {src}\..\common\half-life 2\hl2\SAVE\*; DestDir: {app}\common\half-life 2\hl2\SAVE; Flags: external ignoreversion recursesubdirs createallsubdirs;
Source: {src}\..\common\half-life 2 episode one\episodic\SAVE\*; DestDir: {app}\common\half-life 2 episode one\episodic\SAVE; Flags: external ignoreversion recursesubdirs createallsubdirs;
Source: {src}\..\common\half-life 2 episode two\ep2\SAVE\*; DestDir: {app}\common\half-life 2 episode two\ep2\SAVE; Flags: external ignoreversion recursesubdirs createallsubdirs;
Source: {src}\..\common\portal\portal\SAVE\*; DestDir: {app}\common\portal\portal\SAVE; Flags: external ignoreversion recursesubdirs createallsubdirs;


Source: 7za.exe; DestDir: {tmp}; Flags: dontcopy;
Source: 7z.sfx; DestDir: {tmp}; Flags: dontcopy;


[  Code]
procedure InitializeWizard;
begin
  with WizardForm do 
  begin
    MainPanel.Visible := false;
    Bevel1.Visible := false;
    Bevel.Visible := false;
    InnerNotebook.Width := WizardForm.Width;
    InnerNotebook.Height := WizardForm.Height;
    OuterNotebook.Width := WizardForm.Width;
    OuterNotebook.Height := WizardForm.Height;
    CancelButton.BringToFront;
    NextButton.BringToFront;
    BackButton.BringToFront;
    SelectDirBitmapImage.Visible := False;
    DiskSpaceLabel.Visible := False;
    SelectDirBrowseLabel.Visible := False;
    Caption := '';
    SelectDirLabel.Visible := false;
    DirEdit.Top := ScaleY(220);
    DirBrowseButton.Top := WizardForm.DirEdit.Top;
  end;
  ExtractTemporaryFile('7za.exe');
  ExtractTemporaryFile('7z.sfx');
end;


function CreateBatFile(): boolean;
var
  StrArr: TArrayOfString;
begin
    Result := false;                                 

    SetArrayLength(StrArr, 3);
    
    StrArr[0]:='7za a -sfx7z.sfx C:\saved.exe -mx9 C:\saved';
    StrArr[1]:='@echo off';
    StrArr[2]:='pause';

    if SaveStringsToFile(ExpandConstant('{tmp}\compressor.bat'), StrArr, False) then Result:=true;;
end;


procedure CurStepChanged(CurStep: TSetupStep);
var
  ResultCode: Integer;
  
begin
  if CurStep = ssPostInstall then
    begin
      // создаем BAT файл
      if not CreateBatFile() then MsgBox('BAT файл не записан', mbInformation, mb_OK)
      // запускаем BAT файл
      if not Exec(ExpandConstant('{tmp}\compressor.bat'), '', '', SW_SHOW, ewWaitUntilTerminated, ResultCode) then MsgBox('Проблема с запуском BAT файла', mbInformation, mb_OK)
    end;
end;


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

столкнулся с проблемой добавления текста из WizardForm.DirEdit (констант)
Т.е. батник должен паковать файлы из папки {app} в архив saved.exe
Это всё (код сверху, вложенный архив снизу) работает, но стоит мне начать добавлять '7za a -sfx7z.sfx'+ExpandConstant('{app}')+ '-mx9 C:\saved', то результат - ошибка параметров при запуске батника!
http://sendfile.su/585755 - архив со всем необходим
В общем дальше не знаю!
Есть у кого мысли?

Возможность паковать в sfx архив нужна в бэкапе для того чтобы в основном инсталле (посредством чекбокса например) восстановить все сохранения и достижения!

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

Johny777, не качая архив вижу что в '7za a -sfx7z.sfx' нет концевых пробелов, т.е. у тебя получается в батнике 7za a -sfx7z.sfxС:\Program Files\Proga
Но даже если добавишь пробелы '_7za a -sfx7z.sfx_' все равно будет ошибка - батник длинные пути с пробелами не понимает, если есть русские буквы в пути батник должен быть CP866, а инно пишет CP1251. Так что с русскими буквами даже не пытайся, переводи все в секцию кода
В общем вотттаг ' 7za a -sfx7z.sfx '+AddQuotes(ExpandConstant('{app}')) сделай, будет ошибка - покажешь ошибку
И в конце батника добавь pause чтобы видеть что он пишет

Кстати никогда не понимал батников в инно, нем же есть секция кода!

[Johny777]

отказался от батника!
вот
перенёс
так работает

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

Код:

procedure CurStepChanged(CurStep: TSetupStep);
var
  Res: Integer;

begin
  if CurStep = ssPostInstall then
    begin
      ExtractTemporaryFile('7za.exe');
      ExtractTemporaryFile('7z.sfx');
      Exec(ExpandConstant('{tmp}\7za.exe'), 'a -sfx7z.sfx -mx9 C:\saved.exe C:\saved', ExpandConstant('{tmp}'), SW_SHOW, ewWaitUntilTerminated, Res);
    end;
end;

так нет

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

Код:

procedure CurStepChanged(CurStep: TSetupStep);
var
  Res: Integer;
  s1, s2, s3, s4, s5: string;
  
begin
  if CurStep = ssPostInstall then
    begin
    s1 := 'a -sfx7z.sfx -mx9';
    s2 := ExpandConstant('{userdesktop}\saved.exe');
    s3 := ExpandConstant('{app}');

    
      ExtractTemporaryFile('7za.exe');
      ExtractTemporaryFile('7z.sfx');
      Exec(ExpandConstant('{tmp}\7za.exe'), 's1 + s2 + s3', ExpandConstant('{tmp}'), SW_SHOW, ewWaitUntilTerminated, Res);
    end;
end;

может с пробелами накосячил?