Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Аватара для R.i.m.s.k.y.

Ветеран


Сообщения: 1640
Благодарности: 536

Профиль | Отправить PM | Цитировать


Цитата Лександер:
можно. if WizardForm.RunList.Checked[0] then »
а как этот НОЛЬ узнать? т.е. порядковый номер?
я вот наваял но ругается что неизвестный Items
Код: Выделить весь код
if CurStep=ssDone  then begin
#if Full == True
if NeedRestart_my() then MsgBox(ExpandConstant('{cm:code9}'), mbInformation, MB_OK);
#endif

web1 := WizardForm.FinishedPage.Items.IndexOf(ExpandConstant('{cm:runSVPTeam}'));
web2 := WizardForm.FinishedPage.Items.IndexOf(ExpandConstant('{cm:runsubscribe}'));
if (WizardForm.FinishedPage.Checked[web1]) then ShellExec('open', 'http://www.SVP-Team.com', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);
if (WizardForm.FinishedPage.Checked[web2]) then begin
  if IsRus then ShellExec('open', 'http://svp-team.com/wiki/Mailing_list/ru', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);
  else ShellExec('open', 'http://svp-team.com/wiki/Mailing_list', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);
end;
end; // CurStep=ssDone
хотя c ComponentsList и TasksList это работает

-------
Хороший установщик тот, которого не замечаешь
Оформление в инно пустая трата времени: толку мало, головняка много, а ошибок истчо больше!


Отправлено: 12:20, 10-03-2012 | #1008