[alert30]

Много бабла нарубил уже? »

neorom сам спросил - я и залил. А за бабло, не понятно о чем речь...

[neorom]

alert30 СПАСИБО

[Respin]

Всем привет.
Johny777
В этом коде есть один большой недостаток! Если файл запаковать целиком (один большой файл), то он считывает размер распаковавающегося файла правильно. Но если запаковать много файлов маленького размера, он считывает не размер распаковывающихся файлов, а размер распаковывающегося архива!
Плюс ещё бы к нему прикрутить проценты распаковки...

[saurn]

здравствуйте, помогите со скриптом. на "SelectProgramGroupPage" вместо кнопки "GroupBrowseButton" хотелось чтоб было как в примере, небольшое "окно" (рисунок во влажении) »

Пример ниже:

читать дальше »

Код:

[*Setup]
AppName=MyApp
AppVerName=MyApp
DefaultDirName={pf}\MyApp
DefaultGroupName=MyApp
AllowNoIcons=true
Compression=none
DiskSpanning=true
DiskSliceSize=736000000

[*Icons]
Name: "{group}\My Program"; Filename: "{app}\MyProg.exe"

[*Code]
var
  SelectFolderInStartMenuLabel, SelectFolderInStartMenuLabel2: TLabel;
  StartMenuFolderTreeView: TStartMenuFolderTreeView;


procedure StartMenuFolderOnChange(Sender: TObject);
begin
WizardForm.GroupEdit.Text:= AddBackslash(StartMenuFolderTreeView.Directory)+ ExpandConstant('{#SetupSetting("DefaultGroupName")}');
end;

procedure DisableCreateStartMenuFolderOnClick(Sender: TObject);
begin
   case TObject(Sender) of
      WizardForm.NoIconsCheck:
      begin
         WizardForm.GroupEdit.Enabled:= not(WizardForm.GroupEdit.Enabled);
         StartMenuFolderTreeView.Enabled:= WizardForm.GroupEdit.Enabled;
      end;
   end;
end;

procedure InitializeWizard();
begin

  with WizardForm.SelectGroupBitmapImage do
  begin
    Visible := False;
  end;

  SelectFolderInStartMenuLabel := TLabel.Create(WizardForm);
  with SelectFolderInStartMenuLabel do
  begin
    Parent := WizardForm.SelectProgramGroupPage;
    Caption := 'Текущая папка:';
    SetBounds(ScaleX(0), ScaleY(0), ScaleX(85), ScaleY(13));
    Transparent := False;
    WordWrap := True;
  end;

  SelectFolderInStartMenuLabel2 := TLabel.Create(WizardForm);
  with SelectFolderInStartMenuLabel2 do
  begin
    Parent := WizardForm.SelectProgramGroupPage;
    SetBounds(ScaleX(0), ScaleY(47), ScaleX(118), ScaleY(13));
    Caption := 'Существующие папки:';
    Transparent := False;
  end;


  with WizardForm.GroupBrowseButton do
  begin
    Visible := False;
  end;

  with WizardForm.GroupEdit do
  begin
    SetBounds(ScaleX(0), ScaleY(17), ScaleX(417), ScaleY(21));
    ReadOnly := True;
  end;

  with WizardForm.SelectStartMenuFolderBrowseLabel do
  begin
    Visible := False;
  end;

  with WizardForm.SelectStartMenuFolderLabel do
  begin
    Visible := False;
  end;

  with WizardForm.NoIconsCheck do
  begin
    Caption := 'Отключить создание папки в меню "Пуск"';
    WizardForm.NoIconsCheck.OnClick:= @DisableCreateStartMenuFolderOnClick;
  end;

  StartMenuFolderTreeView := TStartMenuFolderTreeView.Create(WizardForm);
  with StartMenuFolderTreeView do
  begin
    Parent := WizardForm.SelectProgramGroupPage;
    SetBounds(ScaleX(0), ScaleY(64), ScaleX(417), ScaleY(142));
    SetPaths(ExpandConstant('{userprograms}'),ExpandConstant('{commonprograms}'),ExpandConstant('{userstartup}'),ExpandConstant('{commonstartup}'));
    OnChange:= @StartMenuFolderOnChange;
  end;
end;

P. S.
Это просто пример. Под свой скрипт адаптируете его сами.

[neorom]

Как мне зделать так чтоби ета надпись не била зависима от язика исталяции програми

[saurn]

neorom,

Код:

[Tasks]
Name: CreateLink; Description: (описание на требуемом языке) ;

[neorom]

У неня єсть несколько язиков при инсталяции, что делать ...

[alert30]

что делать »

Справку читать.

[neorom]

Справку читать. »

Я слаба розбераюсь в програме

[saurn]

neorom,

С привязкой сообщений к нескольким языкам:

Код:

[Languages]
//Здесь указываете языки инсталятора
Name: russian; MessagesFile: compiler:Languages\Russian.isl
Name: english; MessagesFile: compiler:Languages\English.isl

[Tasks]
Name: linkdesk; Description: {cm:MakeLinkDesk} //Здесь константы сообщений, которые вы изначально задаете в секции CustomMessages
Name: linkstartmenu; Description: {cm:MakeLinkStartMenu}

[CustomMessages]
//Здесь вариации сообщений для каждого языка
russian.MakeLinkDesk=Ярлык на Рабочем столе
russian.MakeLinkStartMenu=Ярлык в меню "Пуск"

english.MakeLinkDesk=Create link on Desktop
english.MakeLinkStartMenu=Create link on Start Menu

Без привязки:

Код:

[Tasks]
Name: linkdesk; Description: Ярлык на Рабочем столе
Name: linkstartmenu; Description: Ярлык в меню "Пуск"