[serg aka lain]

when i try to compile FreeArc_Example.iss gives me this error »

Perhaps you need to remove duplicate "PAnsiChar" identifiers

[STRAYKER]

Как сделать чтобы ПЕРЕД или ВКОНЦЕ предлагало установку дополнительных елементов ????

[shao]

После компиляции скрипта , при запуске программы, она не отрабатывает некоторые секции.

Вот исходный скрипт :

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

Код:

; InnoSetupVersion=5.3.10 (Unicode)

[Setup]
AppName=XXX
AppVerName=XXX
DefaultDirName={pf}\XXX
DefaultGroupName=XXX
OutputBaseFilename=setup
Compression=lzma
WizardImageFile=embedded\WizardImage.bmp
WizardSmallImageFile=embedded\WizardSmallImage.bmp

[Files]
Source: "{app}\XXX"; DestDir: "{app}"; MinVersion: 0.0,5.0; Flags: ignoreversion 
Source: "{app}\Resources\XXX"; DestDir: "{app}\Resources"; MinVersion: 0.0,5.0; Flags: ignoreversion 
Source: "{app}\Resources\XXX"; DestDir: "{app}\Resources"; MinVersion: 0.0,5.0; Flags: ignoreversion 
Source: "{app}\Resources\XXX"; DestDir: "{app}\Resources"; MinVersion: 0.0,5.0; Flags: ignoreversion 
Source: "{app}\Resources\taskbar_groupmenu.png"; DestDir: "{app}\Resources"; MinVersion: 0.0,5.0; Flags: ignoreversion 
Source: "{app}\Resources\XXX"; DestDir: "{app}\Resources"; MinVersion: 0.0,5.0; Flags: ignoreversion 
Source: "{userappdata}\XXX"; DestDir: "{userappdata}\XXX"; MinVersion: 0.0,5.0; Flags: ignoreversion
Source: "{userappdata}\XXX"; DestDir: "{userappdata}\XXX"; MinVersion: 0.0,5.0; Flags: ignoreversion

[Registry]
Root: HKCU; Subkey: "Software\Microsoft\Windows\CurrentVersion\Run"; ValueName: "XXX"; ValueType: String; ValueData: "C:\Program Files\XXX"; MinVersion: 0.0,5.0; Flags: uninsdeletevalue uninsdeletekeyifempty 

[Run]
Filename: "{app}\XXX"; Description: "{cm:LaunchProgram,XXX}"; Flags: nowait postinstall

[UninstallRun]
Filename: "{sys}\CMD.EXE"; Parameters: "/c TASKKILL /F /IM XXX"; Flags: runhidden

[UninstallDelete]
Type: filesandordirs ; Name: "{app}\XXX"
Type: filesandordirs ; Name: "{userappdata}\XXX"
Type: files ; Name: "{app}\XXX"

и так далее....

То , что выделено , почему-то теряется при компиляции скрипта.
То есть , если "вытянуть" скрипт из уже созданного инсталлятора ,
то эти выделенные места отсутствуют.

Может кто-нибудь знает в чём дело ?

[serg aka lain]

Как сделать чтобы ПЕРЕД или ВКОНЦЕ предлагало установку дополнительных елементов ???? »

воспользоваться процедурой CurStepChanged

Код:

procedure CurStepChanged(CurStep: TSetupStep);
begin
  if CurStep = ssInstall then
   // запуск дополнительных действий
end;

[Pilotfcsm]

Подскажите пожалуйста, можно ли поменять местами существующие страницы, конкретно мне нужно чтобы выбор компонентов был до выбора куда ставить программу. То есть как нить поменять местами wpSelectComponents и wpSelectDir.

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

[Arsi000]

я так полагаю в inno не получится сделать нативный 64 битный установщик или есть всё же какие нибудь способы?

[serg aka lain]

Подскажите пожалуйста, можно ли поменять местами существующие страницы »

Стандартным способом, конечно, нельзя.
Но если очень надо, то можно. (з.ы. пример написан не мной)

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

Код:

[Setup]
AppName=My program
AppVerName=My program 1.5
DefaultDirName={pf}\My program
;DisableDirPage=True

[Languages]
Name: rus; MessagesFile: compiler:Languages\Russian.isl

[Components]
Name: WB; Description: 'Мой компьютер' - Настройки; ExtraDiskSpaceRequired: 1048576

[code]
function OnShouldSkipPage(Sender: TWizardPage): Boolean;
begin
    if WizardForm.ComponentsList.Items.Count > 0 then WizardForm.Tag:= 1; // отображаются страницы выбора папки и компонентов
end;

Procedure CurPageChanged(CurPageID: Integer);
Begin
  Case CurPageID of
  wpSelectDir: if WizardForm.Tag = 1 then
    begin
        WizardForm.SelectDirPage.Notebook.ActivePage:= WizardForm.SelectComponentsPage;
        WizardForm.PageNameLabel.Caption:= SetupMessage(msgWizardSelectComponents)
        WizardForm.Hint:= WizardForm.PageDescriptionLabel.Caption; // запомнить SetupMessage(msgSelectDirDesc)
        WizardForm.PageDescriptionLabel.Caption:= SetupMessage(msgSelectComponentsDesc)
    end;
  wpSelectComponents: if WizardForm.Tag = 1 then
    begin
        WizardForm.SelectComponentsPage.Notebook.ActivePage:= WizardForm.SelectDirPage;
        WizardForm.DiskSpaceLabel.Caption:= WizardForm.ComponentsDiskSpaceLabel.Caption;
        WizardForm.PageNameLabel.Caption:= SetupMessage(msgWizardSelectDir)
        WizardForm.PageDescriptionLabel.Caption:= WizardForm.Hint // иначе вместо названия программы [name]
    end;
  end;
End;

Procedure InitializeWizard;
Begin
    PageFromID(wpSelectDir).OnShouldSkipPage:= @OnShouldSkipPage
End;

я так полагаю в inno не получится сделать нативный 64 битный установщик или есть всё же какие нибудь способы? »

В папке с примерами "C:\Program Files\Inno Setup 5\Examples\",
есть пример 64Bit.iss, возможно это он.

[Pilotfcsm]

serg aka lain, спасибо большое!

[Henry_Townsend]

Доброго времени суток. Я тут с немного дурацким вопросом - как лучше организовать упаковку файлов
precompresor+arc+inno setup? Я где-то на форуме уже встречал подобный вопрос, но вот найти никак не могу

[STRAYKER]

Как сделать чтобы ПЕРЕД или ВКОНЦЕ предлагало установку дополнительных елементов ????