[El Sanchez]

Как по этому примеру сделать, чтобы выбранные параметры суммировались? В этом примере, если выбрать несколько параметров, то они заменят друг друга и в итоге мы получим конфиг с самым последним параметром. Мне же нужно, чтобы они суммировались. Возможно ли это? »

Farser21, ну и используйте константу {code:...} для определения параметров. В теле функции делаете все, что нужно.

Код:

[Components]
Name: Component1; Description: Component 1;
Name: Component2; Description: Component 2;

[Run]
Filename: {app}\{#MyAppExeName}; Description: {cm:LaunchProgram,{#MyAppName}}; Flags: nowait postinstall skipifsilent; Parameters: {code:GetParameters}

[code]
//////////////////////////////////////////////
function GetParameters(Param: String): String;
begin
    with TStringList.Create do
    try
        if IsComponentSelected('Component1') then
            Add('/param1');
        if IsComponentSelected('Component2') then
            Add('/param2');
        Result := Text;
        StringChangeEx(Result, #13#10, #32, True);
    finally
        Free;
    end;
end;

[Dodakaedr]

Приведите, пожалуйста, пример работы функции FindWindowEx который бы работал на расширенной версии unicode? Какая константа клика для unicode версии? Unicode No или это не то?
Или поправьте этот код:

Скрытый текст

Код:

#define A = (Defined UNICODE) ? "W" : "A"
[Setup]
AppName=App
AppVersion=1.0
DefaultDirName={pf}\app
OutputDir=.

[Code]
type
pchar=pansichar;

Const
  BM_CLICK = $00F5;

function FindWindowEx(hWndM, hWndC: HWND; lpszClass, lpszWindow: PChar): HWND;external 'FindWindowEx{#A}@user32.dll stdcall';

function InitializeSetup(): Boolean;
var
  r: integer;
begin
 Result := Exec(ExpandConstant('{sys}\calc.exe'), '', '', SW_SHOW, ewNoWait, R);
 Sleep(200);
end;

procedure InitializeWizard();
var
  AppWnd: HWND;
begin
if FindWindowByWindowName('Калькулятор') <> 0 then begin
 AppWnd:= FindWindowByWindowName('Калькулятор');
 SendMessage(FindWindowEx(AppWnd, 0, 'Button', '7'), BM_CLICK, 0, 0);
end;
end;

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

Подскажите, пожалуйста, версия инно 5.5.1 ee2 (a) ANSI или UNICODE? от к итайцев расширенная или оригинальная?

[sergey3695]

(a) - ansi. расширенная наверное.

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

sergey3695, а не подрелиз какой-нибудь?

[kotyarko@fb]

от к итайцев расширенная или оригинальная? »

Так китайцы только расширенную и делают, не?

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

Так китайцы только расширенную и делают, не? »

ога
вопрос это (расширенная от китайцев) or (стандартная)

[Dodakaedr]

вопрос это (расширенная от китайцев) or (стандартная) »

расширенная

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

господа состоятельные кроты, F1!!!

есть две проблемки:

1. в initializeWizard компонент весом 10 гиг фиксируется, но на странице SelectDirPage пишет что минимум нужно 35мб, хотя по идее должно писаться 10 гиг

2. На странице компонентов отсутствует полоса прокрутки, т.е. по факту список компонентов прокручивается если колесиком мышки повозить, но сие действо неясно тк полосы вертикальной прокрутки нет

(с моей подписью вопрос немного диссонирует, дада )

скрипт в аттаче, файлы нужные вот http://sendfile.su/1100675

[AlekseyPopovv]

Как эту процедуру разделить на портабле и инсталлер:

procedure SettClick(Sender: TObject);
begin
case TNewRadioButton(Sender) of
Bus:
begin
WizardForm.DirEdit.Text := AddBackslash(ExpandConstant('{pf32}\{#MyAppCompany}')) + '{#MyAppName} {#Bus}';
WizardForm.DirEdit.Text := AddBackslash(ExpandConstant('{src}')) + '{#MyAppName} {#Bus} Portable';
end;
Net:
begin
WizardForm.DirEdit.Text := AddBackslash(ExpandConstant('{pf32}\{#MyAppCompany}')) + '{#MyAppName} {#Net}';
WizardForm.DirEdit.Text := AddBackslash(ExpandConstant('{src}')) + '{#MyAppName} {#Net} Portable';
end;
end;
end;

Если добавить if Installer.Checked then или if Portable.Checked then скрипт компилируется, но при запуске инсталлятора выдаёт ошибку:

Runtime Error (at 80:119):

Could not call proc.