Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

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

Ветеран


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

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


Raf-9600, объясните поподробней, как понять работать в невидимом режиме? т.е. вы её запускаете и что вы собрались с ней сделать?

Цитата p3rf3ct1c:
вот только я не могу догадаться что надо добавить там где я отметил жирным и подчеркнул »
Конкретно для вашего случая:
пример
Код: Выделить весь код
[Setup]
AppName=My Program
AppVerName=My Program v 1.5
DefaultDirName={pf}\My Program
OutputDir=.
Compression=lzma/ultra
InternalCompressLevel=ultra
SolidCompression=yes

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

[code]
var
  RunProg: TCheckBox;

procedure CheckBoxChecked;
var
  res: Integer;
begin
  if RunProg.Checked then
  // запускаем gfwlivesetup.exe
  Exec(ExpandConstant('{src}\Redistributables\gfwlivesetup.exe'), '',
       ExpandConstant('{src}\Redistributables'), SW_HIDE, ewWaitUntilTerminated, res);
end;

procedure GreatCheckBox;
begin
  RunProg:= TCheckBox.Create(WizardForm);
  with RunProg do
    begin
      Parent := WizardForm;
      Caption := 'Установить программу?';
      SetBounds(140,330,150,15);
      Cursor:= crHand;
      Checked:= True;
    end;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
  if CurPageID = wpFinished then GreatCheckBox;
end;

procedure CurStepChanged(CurStep: TSetupStep);
begin
  if CurStep = ssDone then CheckBoxChecked;
end;

-------
Книги нужны, чтобы напоминать человеку, что его оригинальные мысли не так уж новы... Авраам Линкольн.

Это сообщение посчитали полезным следующие участники:

Отправлено: 23:37, 06-07-2009 | #1086