Inno Setup (создание инсталяционных пакетов). Часть 2

Статус
В этой теме нельзя размещать новые ответы.
PlayHard

PlayHard

Новичок
я наверное прошу слишком много но не могли бы ыы мне пожалуйста помочь, вообщем я сделал чтобы на каждой странице была своя картинка, но вышло так
-----
http://vangog.bks-tv.ru/?1/2/501691184d721.png
http://vangog.bks-tv.ru/?5/3/50169118d6335.png
http://vangog.bks-tv.ru/?e/6/501691196a76e.png
http://vangog.bks-tv.ru/?0/8/5016911a0bb80.png
-----
поммоги мне подкорректировать тут чтобы всё было нормально
http://rghost.ru/39481140
 
LexBell

LexBell

Борода
Супер модератор
В чем проблема-то? Ты вставляешь картинки, у картинки есть свойства координат - Left, Top, Width, Height - позиция слева, позиция сверху, длинна, высота - меняй их, пока не получишь нужный тебе результат. Если-же ты вставлял картинки не сам ( что вполне вероятно, исходя из твоего вопроса ), то обратись к тому, кто тебе это сделал, пусть исправляет.
 
bugron

bugron

Новичок
Парни, я конечно повторяюсь, но нужен ответ на этот вопрос.
Будет ли возможность в недалеком будущем распаковать новые инсталлы сделанные в Inno Setup 5.5.x?
 
K

kingshady

Новичок
ребят, как изменить цвет на странице выбора компонентов или доп. по. они почему-то черные, хотя ставлю ClWhite
 
Shegorat

Shegorat

Lord of Madness
Администратор
bugron написал(а):
Парни, я конечно повторяюсь, но нужен ответ на этот вопрос.
Будет ли возможность в недалеком будущем распаковать новые инсталлы сделанные в Inno Setup 5.5.x?
Нажмите для раскрытия...
Как только автор пожелает обновить innounp.exe. Ну или кто-нибудь разберется в его исходниках и сам обновит, насколько я помню у проекта открытый исходный код.
 
ARS_23

ARS_23

R.I.P
Проверенный
kingshady написал(а):
как изменить цвет на странице выбора компонентов или доп. по. они почему-то черные, хотя ставлю ClWhite
Нажмите для раскрытия...
если я правильно понял, то:

WizardForm.Color:= clWhite;

или
WizardForm.TasksList.Font.Color:= clWhite;
WizardForm.ReadyMemo.Font.Color:= clWhite;
 
sergey3695

sergey3695

Ветеран
Модератор
Привет всем! Никто не знает из-за чего может возникнуть такая ошибка?
Ошибка возникает после распаковки архивов устанавливаемой игры разбитой на два двд. Ошибка не влияет на устанавлимую игру, но из-за неё потом не работает деинсталлятор. Кто знает как это исправить? :unknown:
 
Adil

Adil

Старожил
Всем салам, иногда при отмене установшик сам по себе удаляется, в чем может быть проблема?
 
A

AntonOVS

Новичок
Gnom написал(а):
AntonOVS, держи.
[SOURCE="iss"]Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

Код: 
var
  ShotCheckBox: TNewCheckBox;

procedure InitializeWizard();
begin
  ShotCheckBox := TNewCheckBox.Create(WizardForm);
  with ShotCheckBox do
  begin
    Parent := WizardForm.InstallingPage;
    SetBounds(ScaleX(0),ScaleY(65),ScaleX(225),ScaleY(15));
    Caption := 'Выключить компьютер после установки';
    Checked := true;
  end;
end;

procedure CurPageChanged(CurPageID: Integer);
var
  res : integer;
begin
  if CurPageID=wpFinished then
  begin
    if ShotCheckBox.Checked then
    begin
      ShellExec('','shutdown','-s','{win}\System32\',SW_SHOW,ewNoWait,res);
      WizardForm.NextButton.OnClick(nil);
    end;
  end;
end;[/SOURCE][/SPOILER][/QUOTE]
Можно ли как-то сделать, чтобы при выставленной галочке и отмене установки не выключался компьютер ?
Кнопка отмены установки у меня от [url=http://krinkels.org/showthread.php?t=34]ISDone[/url] (MyCancelButton)
Нажмите для раскрытия...
 
Adil

Adil

Старожил
Кому не трудно, можете дать пример создания своей формы отмены без ботвы
 
aLLeXUs

aLLeXUs

Участник
подскажите в чем проблема. При деинсталляции ошибка
Ошибка в строке
Код: 
Backgr:=ImgLoad(UninstallProgressForm.Handle,ExpandConstant('{tmp}\background.png'),0,0,0,0,false,true);
Все нужные файлы извлекаю в
Код: 
function InitializeUninstall(): Boolean;
строкой
Код: 
FileCopy(ExpandConstant('{app}\uninstall\botva2.dll'), ExpandConstant('{tmp}\botva2.dll'), False);
Использую b2p.
 
Mailchik

Mailchik

Старожил
Проверенный
nazbek010, На oszone когда-то выкладывали:
[SOURCE="inno"][Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application
SolidCompression=yes
Compression=lzma/ultra
PrivilegesRequired=none
OutputDir=userdocs:Inno Setup Examples Output

Код: 
var
  NoButton, YesButton: TButton;
  MyExit: TSetupForm;

procedure MyExitMessage();
begin
  MyExit := CreateCustomForm();
  with MyExit do
    begin
      BorderIcons := [];
      Position := poScreenCenter;
      ClientWidth := ScaleX(230);
      ClientHeight := ScaleY(100);
      Caption := ExpandConstant(SetupMessage(msgExitSetupTitle));
      Color := $48c1ca;
    end;

  NoButton := TButton.Create(MyExit);
  with NoButton do
    begin
      Parent := MyExit;
      Left := ScaleX(50);
      Caption := 'Нет';
      Top := ScaleY(60);
      Width := ScaleX(60);
      Height := ScaleY(25);
      ModalResult:= mrNo;
    end;

  YesButton := TButton.Create(MyExit);
    with YesButton do
    begin
      Caption := 'Да';
      Parent := MyExit;
      Left := ScaleX(120);
      Top := ScaleY(60);
      Width := ScaleX(60);
      Height := ScaleY(25);
      ModalResult := mrYes;
    end;
end;


procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean);
begin
  Confirm := False;

  MyExitMessage();
  if MyExit.ShowModal() = mrNo then
    Cancel := False;
end;[/source][/SPOILER]
 
Последнее редактирование:
  • Like
Реакции: Adil
Shegorat

Shegorat

Lord of Madness
Администратор
alex0413 написал(а):
подскажите в чем проблема. При деинсталляции ошибка
Нажмите для раскрытия...
Ну так тебе же ясным языком сказали, что нельзя использовать функцию ExtractTemporaryFileSize во время удаления. Используй для загрузки картинок в деинсталлятор обычную ботву.
 
aLLeXUs

aLLeXUs

Участник
Shegorat написал(а):
Ну так тебе же ясным языком сказали, что нельзя использовать функцию ExtractTemporaryFileSize во время удаления.
Нажмите для раскрытия...
[STRIKE]ну я и не использовал...[/STRIKE]
вижу, модуль использует:(
Shegorat написал(а):
Используй для загрузки картинок в деинсталлятор обычную ботву.
Нажмите для раскрытия...
ну если больше нету вариантов, то попробую так...
 
Последнее редактирование:
Adil

Adil

Старожил
Mailchik написал(а):
nazbek010, На oszone когда-то выкладивали:
[SOURCE="inno"][Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application
SolidCompression=yes
Compression=lzma/ultra
PrivilegesRequired=none
OutputDir=userdocs:Inno Setup Examples Output

Код: 
var
  NoButton, YesButton: TButton;
  MyExit: TSetupForm;

procedure MyExitMessage();
begin
  MyExit := CreateCustomForm();
  with MyExit do
    begin
      BorderIcons := [];
      Position := poScreenCenter;
      ClientWidth := ScaleX(230);
      ClientHeight := ScaleY(100);
      Caption := ExpandConstant(SetupMessage(msgExitSetupTitle));
      Color := $48c1ca;
    end;

  NoButton := TButton.Create(MyExit);
  with NoButton do
    begin
      Parent := MyExit;
      Left := ScaleX(50);
      Caption := 'Нет';
      Top := ScaleY(60);
      Width := ScaleX(60);
      Height := ScaleY(25);
      ModalResult:= mrNo;
    end;

  YesButton := TButton.Create(MyExit);
    with YesButton do
    begin
      Caption := 'Да';
      Parent := MyExit;
      Left := ScaleX(120);
      Top := ScaleY(60);
      Width := ScaleX(60);
      Height := ScaleY(25);
      ModalResult := mrYes;
    end;
end;


procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean);
begin
  Confirm := False;

  MyExitMessage();
  if MyExit.ShowModal() = mrNo then
    Cancel := False;
end;[/source][/SPOILER][/QUOTE]

Mailchik спасибо работает, но возникла проблема, как эту форму прицепить кнопке отмены ISDone-а?
Нажмите для раскрытия...
 
K

kingshady

Новичок
Парни как сделать, чтобы при выборе определенного компонента в реестр добавлялась строчка.
 
Последнее редактирование:
Статус
В этой теме нельзя размещать новые ответы.
Сверху