[saurn]

Возможно вывести сюда галочку на удаление компонентов? »

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

Здравствуйте, подскажите как сделать автозапоминание компонентов при следующей установке »

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

Код:

[Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName={pf}\My Program
DefaultGroupName=My Program
OutputDir=...


[Components]
Name: program1; Description: Компонент 1; Types: full
Name: program2; Description: Компонент 2; Types: full
Name: program3; Description: Компонент 3; Types: full


[Files]
Source: compiler:Examples\MyProg.exe; DestDir: {app}; Components: program1;
Source: compiler:Examples\MyProg-x64.exe; DestDir: {app}; Components: program2;
Source: compiler:Examples\MyProg-IA64.exe; DestDir: {app}; Components: program3;


[Code]
procedure RegisterPreviousData(PreviousDataKey: Integer);
begin
    SetPreviousData(PreviousDataKey, 'Компонент 1', IntToStr(Ord(WizardForm.ComponentsList.Checked[0])));
    SetPreviousData(PreviousDataKey, 'Компонент 2', IntToStr(Ord(WizardForm.ComponentsList.Checked[1])));
    SetPreviousData(PreviousDataKey, 'Компонент 3', IntToStr(Ord(WizardForm.ComponentsList.Checked[2])));
end;

procedure InitializeWizard();
begin
    WizardForm.ComponentsList.Checked[0] := GetPreviousData('Компонент 1', '1') = '1';
    WizardForm.ComponentsList.Checked[1] := GetPreviousData('Компонент 2', '1') = '1';
    WizardForm.ComponentsList.Checked[2] := GetPreviousData('Компонент 3', '1') = '1';
end;