[saurn]

ROMKA-1977, Мои документы на деле и есть Documents
"Мои документы" просто обертка ссылки в проводнике на X:\Users\user_name\Documents

[Shkutu]

Всем доброго дня!
Есть такая проблемка. Если у инсталлятора выставлена директива AlwaysRestart=yes, то чекбоксы секции Run с флагом postinstall (запускающие приложения после работы инсталлятора) перестают выводиться. Пыталась приколхозить такую галку руками

примерно так

Код:

procedure InitializeWizard;
 begin  
  ConfCheckBox:=TNewCheckBox.Create(PageFromId(wpFinished));
  ConfCheckBox.parent:= PageFromId(wpFinished).surface;
  ConfCheckBox.top:=WizardForm.NoRadio.top + WizardForm.NoRadio.height + ScaleY(15);
  ConfCheckBox.left:=WizardForm.NoRadio.left;
  ConfCheckBox.caption:=ExpandConstant('{cm:runconf}');
  ConfCheckBox.checked:=false;
  WizardForm.NoRadio.onclick:=@RestartRadioOnClick; // чтобы галка дизейблилась,
  WizardForm.YesRadio.onclick:=@RestartRadioOnClick; // если выбрана перезагрузка
  WizardForm.NoRadio.checked:=true;
 end;

//запускать пыталась так
procedure CurStepChanged(CurStep: TSetupStep);
var i:integer;
begin
 case CurStep of
    ssDone:
    begin
     if  ConfCheckBox.checked then 
       Exec(ExpandConstant('{app}')+'\bin\Configurator.exe', '', '', SW_HIDE, ewNoWait, i);
    end;
 end;
end;

Но оно не работает. Подскажите плиз, есть ли какая настройка для галок postinstall в случае наличия директивы на промпт перезагрузки. Или если нет, то может как-то можно поправить мой код или еще как-то по-другому реализовать такую галку с запуском программы из кода?
UPD. Оказалось, все работает и проблема была в ошибке в имени файла

[ROMKA-1977]

Мои документы на деле и есть Documents "Мои документы" просто обертка ссылки в проводнике на X:\Users\user_name\Documents »

Так и есть, но в некоторых играх некоректно работают сохранёнки если в локалке папка Documents отображается как Мои документы,
приходится в ручную переименовывать отображаемое имя папки.

[saurn]

Shkutu, до кучи

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

Код:

[Code]
var
    runCheckBox: TCheckBox;


procedure RunListClick( Sender: TObject );
begin
    case TRadioButton( Sender ).Caption of
        SetupMessage( msgYesRadio ): runCheckBox.Checked := False;
        SetupMessage( msgNoRadio ): runCheckBox.Checked := True;
    end;
end;


procedure RunCheckBoxClick( Sender: TObject );
begin
    if TCheckBox( Sender ).Checked then
      WizardForm.ActiveControl := WizardForm.NoRadio;
end;


procedure InitializeWizard;
begin
    with WizardForm.RunList do
      Height := ItemRect( ItemIndex ).Bottom;

    WizardForm.YesRadio.OnClick := @RunListClick;
    WizardForm.NoRadio.OnClick := @RunListClick;

    runCheckBox := TCheckBox.Create( nil );
    with runCheckBox do
    begin
        Parent := WizardForm.FinishedPage;
        Left := WizardForm.RunList.Left;
        Top := WizardForm.RunList.Top + WizardForm.RunList.Height + ScaleY( 10 );
        Width := WizardForm.RunList.Width;
        Caption := 'Запустить чето там';
        OnClick := @RunCheckBoxClick;
    end;
end;


procedure CurStepChanged( CurStep: TSetupStep );
var
    eRR: Integer;
begin
    case CurStep of
        ssDone: if runCheckBox.checked then
          Exec( ExpandConstant( '{sys}\calc.exe' ), '', '', SW_SHOW, ewNoWait, eRR );
    end;
end;

[Tixo]

помогите прикрутить кликабельное лого в углы, код сам я нашел, но вот прикрутить не получается( инсталл запускается, он не более, кликабельного лого я не обнаруживаю
http://rghost.ru/58995455

[Dodakaedr]

помогите прикрутить кликабельное лого в углы, »

Было бы не плохо приложить все необходимые файлы для работы вашего скрипта.

[diman_21Ru]

Какой самый простой способ добавление всплывчатой картинки и с затуханием

[Dodakaedr]

Какой самый простой способ добавление всплывчатой картинки и с затуханием »

Добавление куда? Типа сплэша?

[diman_21Ru]

Dodakaedr, да

[Dodakaedr]

Типа сплэша? »

помогите прикрутить кликабельное лого »

Попробуйте так:

Кликабельное лого

Код:

[Setup]
AppName=My program
VersionInfoVersion=5.0
AppVerName=My program
DefaultDirName={pf}\My program
DefaultGroupName=My program
OutputDir=.

[Files]
Source: {win}\help\*; DestDir: {app}\Files; Flags: external recursesubdirs createallsubdirs;

[code]
var
  Label1: TLabel;

procedure btnOnClick(Sender: TObject);
var
 rcode: integer;
begin
    ShellExec('open','http://forum.oszone.net/thread-278998-193.html','', '', SW_SHOW, ewNoWait, rCode);
end;

procedure btnOnClick2(Sender: TObject);
begin
    Label1.Font.Color := clred;
end;

procedure btnOnClick3(Sender: TObject);
begin
    Label1.Font.Color := clBlue;
end;

procedure InitializeWizard();
begin
  Label1 := TLabel.Create(WizardForm);
  with Label1 do
  begin
    Parent := WizardForm;
    Cursor := crHand;
    Caption := 'OSZONE.NET';
    Font.Color := clBlue;
    Font.Height := -16;
    Font.Name := 'Tahoma';
    Font.Style := [fsUnderline];
    ParentFont := False;
    Transparent := True;
    OnClick := @btnOnClick;
    OnMouseEnter := @btnOnClick2;
    OnMouseLeave := @btnOnClick3;
    Left := ScaleX(8);
    Top := ScaleY(327);
    Width := ScaleX(153);
    Height := ScaleY(19);
  end;
end;

Кликабельное лого через изображение

Код:

#define Bitmap "Logo.bmp"

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

[Files]
Source: {#Bitmap}; Flags: dontcopy solidbreak

[Code]
var
  Panel1: TPanel;
  BitmapImage1: TBitmapImage;
  
procedure Panel1Click(Sender: TObject);
var
 EC: integer;
begin
  ShellExec('open', 'http://forum.oszone.net/', '', '', SW_SHOWNORMAL, ewNoWait, EC);
end;

procedure InitializeWizard();
begin
  Panel1 := TPanel.Create(WizardForm);
  with Panel1 do
  begin
    Parent := WizardForm;
    Left := ScaleX(16);
    Top := ScaleY(318);
    Width := ScaleX(185);
    Height := ScaleY(41);
  end;

  BitmapImage1 := TBitmapImage.Create(WizardForm);
  with BitmapImage1 do
  begin
    Parent := Panel1;
    Left := ScaleX(4);
    Top := ScaleY(4);
    Width := ScaleX(178);
    Height := ScaleY(34);
    Cursor := crHand;
    OnClick := @Panel1Click;
    ExtractTemporaryFile('{#Bitmap}');
    Bitmap.LoadFromFile(ExpandConstant('{tmp}\{#Bitmap}'));
  end;
end;

положите рядом с скриптом файлик Logo.bmp (178х34)