[ShadeUa]

попробую конечно »

вот еще проблемка , при смене языка пропадает характеристика винтов , тоисть сколько свободно и занято памяти https://yadi.sk/i/-rNQsQmkfGFUM
а вот архив-https://yadi.sk/d/E_dPSQ0tfGFWf

[Farser21]

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

[kotyarko@fb]

Возможно ли сделать, чтобы после установки запускалась программа, с параметрами, которые будут зависеть от выбранных компонентов? »

Типо такого:

Код:

Procedure CurStepChanged(CurStep: TSetupStep);
var
 ResultCode: Integer;
 Params: String;
begin
 Params := '';
 if IsComponentSelected('aa\b') then Params := '/n ';
 if IsComponentSelected('bb\a') then Params := Params + '/t ';
 if CurStep = ssDone then
 begin
  ShellExec('', 'program.exe', Params, '', SW_SHOW, ewNoWait, ResultCode);
 end;
end;

При таком раскладе, при выбранном компоненте aa\b параметр будет "/n", при выбранных aa\b + bb\a - параметры "/n /t".

А можно и проще, комментарием ниже))

[habib2302]

Farser21,

Код:

[Components]
Name: 1; Description: Описание;
Name: 2; Description: Описание;

[Run]
Filename: {app}\{#MyAppExeName}; Description: {cm:LaunchProgram,{#MyAppName}}; Flags: nowait postinstall skipifsilent; Parameters: "Параметр для запуска"; Components: 1;
Filename: {app}\{#MyAppExeName}; Description: {cm:LaunchProgram,{#MyAppName}}; Flags: nowait postinstall skipifsilent; Parameters: "Параметр для запуска"; Components: 2;

[Dodakaedr]

вот еще проблемка , при смене языка пропадает характеристика винтов , тоисть сколько свободно и занято памяти »

Пришлось по другому сделать. С характеристиками проблема с процентами. Если проценты добавить в ChangeLang то после запуска на странице welcomepage при смене языка выскакивает ошибка divide by Zero. Исправить не удалось.

[ShadeUa]

Пришлось по другому сделать. С характеристиками проблема с процентами. Если проценты добавить в ChangeLang то после запуска на странице welcomepage при смене языка выскакивает ошибка divide by Zero. Исправить не удалось »

спасибо большое )))) , а еще хотел спросить можна вот ету кнопку сделать не на 2 языка а на 3?

[sergey3695]

Цитата Dodakaedr:
Пришлось по другому сделать. С характеристиками проблема с процентами. Если проценты добавить в ChangeLang то после запуска на странице welcomepage при смене языка выскакивает ошибка divide by Zero. Исправить не удалось. »
Цитата ShadeUa:
или есть какие то другие возможности исправить7 »
да по-нормальному сделать. GetFreeSpaceCaption(nil); попробуй вызывать, а в GetFreeSpaceCaption уже и проверочку. Ну файлов у меня нет, вот и делать впадлу.
Цитата ShadeUa:
кстати можна вот ету кнопку сделать не на 2 языка а на 3? »
да. var i: integer; (глобальной и в initiliazewizard :=1);
if i=1 then
begin
langBtn.Caption:= 'rus';
ChangeLang();
i:= i+1;
end else
if i:=2 then
begin
langBtn.Caption:= 'eng';
ChangeLang();
i:=i+1;
end else
if i:=3 then
begin
langBtn.Caption:= 'ukr';
ChangeLang();
i:= 1;
end;
только щелкать как-то не прикольно. лучше 3 текстурированные связанные кнопочки.

[Dodakaedr]

можна вот ету кнопку сделать не на 2 языка а на 3? »

Недавно давали пример с комбобоксом http://forum.oszone.net/post-2479506-258.html

[Shegorat]

Если проценты добавить в ChangeLang то после запуска на странице welcomepage при смене языка выскакивает ошибка divide by Zero. Исправить не удалось. »

Код:

var
  s: String;
begin
****
if (TotalMB > 0) then
  s:= ' (' + IntToStr((FreeMb*100) div TotalMB) + ' %)'
else
  s:= ' (N/A %)';
FreeSpaceLabel.Caption := CustomMessage(lang+'FreeSpace') + '  ' + MbOrTB(FreeMb) + s;
****
end;

[sergey3695]

И все равно GetFreeSpaceCaption(nil) вызывать там надо. Напечатал, пример не дал. Вот какой я плохой.