[Mat_y]

Госопда!
А как можно сделать, чтобы установщик запоминал какие компоненты пользователь выбрал при прошлой установке? Т.е. если установщик запущен еще раз, то галочки на выбранных компонентах оставались.... только так, чтобы фаил uninstall не создавался... кто-то говорил, что это можно сделать в ini. Может кто подсказать?

[Антон_Мураткин@vk]

Подскажите пожалуйста. Создал новую кнопку [(Button) далее] но она не реагирует, что бы на следующию страницу переходило как прописать чтобы она работала? Заранее благодарю

[vint56]

Антон_Мураткин@vk

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

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

[code]
var
ButtonNext: TNewButton;

procedure ButtonNextClick(Sender: TObject);
begin
WizardForm.NextButton.OnClick(nil);
end;

procedure InitializeWizard();
begin
ButtonNext := TNewButton.Create(WizardForm);
with ButtonNext do
begin
Parent := WizardForm;
Left := ScaleX(56);
Top := ScaleY(325);
Width := ScaleX(75);
Height := ScaleY(25);
Caption := 'Далее';
OnClick := @ButtonNextClick;
end;
end;

[Антон_Мураткин@vk]

vint56, А можно вот в этом скрипте вставить чтобы кнопки работали

[code]

Код:

{ RedesignWizardFormBegin } // Не удалять эту строку!
// Не изменять эту секцию. Она создана автоматически.
var
  NewButton1: TNewButton;
  NewButton2: TNewButton;
  NewButton3: TNewButton;

procedure RedesignWizardForm;
begin
  with WizardForm.WelcomeLabel2 do
  begin
    Height := ScaleY(127);
  end;

  { NewButton1 }
  NewButton1 := TNewButton.Create(WizardForm);
  with NewButton1 do
  begin
    Parent := WizardForm.WelcomePage;
    Left := ScaleX(312);
    Top := ScaleY(280);
    Width := ScaleX(75);
    Height := ScaleY(25);
    Caption := 'Далее';
  end;

  { NewButton2 }
  NewButton2 := TNewButton.Create(WizardForm);
  with NewButton2 do
  begin
    Parent := WizardForm.WelcomePage;
    Left := ScaleX(416);
    Top := ScaleY(280);
    Width := ScaleX(75);
    Height := ScaleY(25);
    Caption := 'Отмена';
  end;

  { NewButton3 }
  NewButton3 := TNewButton.Create(WizardForm);
  with NewButton3 do
  begin
    Parent := WizardForm.WelcomePage;
    Left := ScaleX(208);
    Top := ScaleY(280);
    Width := ScaleX(75);
    Height := ScaleY(25);
    Caption := 'Назад';
  end;

  NewButton1.TabOrder := 2;
  NewButton2.TabOrder := 3;
  NewButton3.TabOrder := 4;

{ ReservationBegin }
  // Вы можете добавить ваш код здесь.

{ ReservationEnd }
end;
// Не изменять эту секцию. Она создана автоматически.
{ RedesignWizardFormEnd } // Не удалять эту строку!

procedure InitializeWizard();
begin
  RedesignWizardForm;
end;

Или кто нибудь помогите пожалуйста.

[habib2302]

Доброе время суток. Мне когда то давали скрипт на удаление настроек/сохранок программ/игр http://forum.oszone.net/post-2165899.html#post2165899 и никакого сообщения нету на удаление

[vint56]

Антон_Мураткин@vk

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

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

[code]
var
ButtonNext: TNewButton;
ButtonBack: TNewButton;
ButtonCancel: TNewButton;


procedure ButtonNextClick(Sender: TObject);
begin
WizardForm.NextButton.OnClick(nil);
end;

procedure ButtonBacktClick(Sender: TObject);
begin
WizardForm.BackButton.OnClick(nil);
end;

procedure ButtonCanceltClick(Sender: TObject);
begin
WizardForm.CancelButton.OnClick(nil);
end;

procedure InitializeWizard();
begin
with WizardForm.WelcomeLabel2 do
begin
Height := ScaleY(127);
end;

ButtonNext := TNewButton.Create(WizardForm);
with ButtonNext do
begin
Parent := WizardForm.WelcomePage;
Left := ScaleX(312);
Top := ScaleY(280);
Width := ScaleX(75);
Height := ScaleY(25);
Caption := 'Далее';
OnClick := @ButtonNextClick;
end;

ButtonCancel := TNewButton.Create(WizardForm);
with ButtonCancel do
begin
Parent := WizardForm.WelcomePage;
Left := ScaleX(416);
Top := ScaleY(280);
Width := ScaleX(75);
Height := ScaleY(25);
Caption := 'Отмена';
OnClick := @ButtonCanceltClick;
end;

ButtonBack := TNewButton.Create(WizardForm);
with ButtonBack do
begin
Parent := WizardForm.WelcomePage;
Left := ScaleX(208);
Top := ScaleY(280);
Width := ScaleX(75);
Height := ScaleY(25);
Caption := 'Назад';
OnClick := @ButtonBacktClick;
end;
end;

Все работает habib2302 а ты правильно указал путь сохранений

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

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

[code]
procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
case CurUninstallStep of
usPostUninstall:
if DirExists(AddBackslash(ExpandConstant('{userdocs}')) + 'Мои игры\The Saboteur™\Сохранения') then
begin
if MsgBoxEx(0, 'Удалить сохранения игры находящиеся по адресу:' + #13#13 + AddQuotes(AddBackslash(ExpandConstant('{userdocs}')) + 'Мои игры\The Saboteur™\Сохранения'), 'Удаление сохранений', $00000004 or $00000020, 0, 0) = IDYES then
DelTree(AddBackslash(ExpandConstant('{userdocs}')) + 'Мои игры\The Saboteur™\Сохранения', True, True, True);
end;
end;
end;

[Антон_Мураткин@vk]

vint56, Благодарю! Но почему то только всё это на первой страницы находится. А мне надо что бы кнопки были так же как на стандартном сетапе (инсталяторе) Есть кнопки стандартные а мне надо же такие только ещё и в другом месте

[Nordek]

habib2302, У меня валяются такие варианты

Вариант 1

Код:

[Code]
procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
if CurUninstallStep=usDone then
begin
if DirExists(ExpandConstant('{userdocs}\Game')) then
begin
if MsgBox('Удалить сохраненные игры?',mbconfirmation, mb_yesno) = IDYES then
begin
DelTree(ExpandConstant('{userdocs}\Game'), True, True, True);
end;
end;
end;
end;

Вариант 2

Код:

[Registry]
Root: HKLM; SubKey: SOFTWARE\My\Game; ValueType: string; ValueName: PathGame; ValueData: {app}; Flags: uninsdeletekey

[Code]
 procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
var ResultStr:String;
begin
if CurUninstallStep=usPostUninstall then
begin
RegQueryStringValue(HKLM, 'SOFTWARE\Chuvakstepan\Spider-man3', 'UnInstConfirm', ResultStr)
if DirExists(ExpandConstant('{userdocs}')+'\Game') then
if MsgBox('Удалить сохраненные игры',mbconfirmation, mb_YesNo) = IDYES then
begin
if not DelTree(ExpandConstant('{userdocs}')+'\Game', True, True, True)
then
MsgBox('Папка не удалена!' #13#13 'Папка не существует или задействована.', mbError, MB_OK);
end;
end;
end;

никакого сообщения нету на удаление »

А ты на (ExpandConstant('{userdocs}\Game') обращал внимание, совпадает с расположением твоих сохранений?

[Nordek]

Но почему то только всё это на первой страницы »

Обрати внимание на Parent
У тебя сейчас

Код:

Parent := WizardForm.WelcomePage;

А ты хочешь наверное на основную форму перенести?
Тогда так

Код:

Parent := WizardForm;

[vint56]

Антон_Мураткин@vk вот так

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

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

[code]
var
ButtonNext: TNewButton;
ButtonBack: TNewButton;
ButtonCancel: TNewButton;


procedure ButtonNextClick(Sender: TObject);
begin
WizardForm.NextButton.OnClick(nil);
end;

procedure ButtonBacktClick(Sender: TObject);
begin
WizardForm.BackButton.OnClick(nil);
end;

procedure ButtonCanceltClick(Sender: TObject);
begin
WizardForm.CancelButton.OnClick(nil);
end;

procedure InitializeWizard();
begin
with WizardForm.WelcomeLabel2 do
begin
Height := ScaleY(127);
end;

with WizardForm do
begin
ClientHeight := ScaleY(390);
end;

ButtonNext := TNewButton.Create(WizardForm);
with ButtonNext do
begin
Parent := WizardForm;
Left := ScaleX(317);
Top := ScaleY(359);
Width := ScaleX(80);
Height := ScaleY(23);
Caption := 'Далее';
OnClick := @ButtonNextClick;
end;

ButtonCancel := TNewButton.Create(WizardForm);
with ButtonCancel do
begin
Parent := WizardForm;
Left := ScaleX(407);
Top := ScaleY(359);
Width := ScaleX(80);
Height := ScaleY(23);
Caption := 'Отмена';
OnClick := @ButtonCanceltClick;
end;

ButtonBack := TNewButton.Create(WizardForm);
with ButtonBack do
begin
Parent := WizardForm;
Left := ScaleX(237);
Top := ScaleY(359);
Width := ScaleX(80);
Height := ScaleY(23);
Caption := 'Назад';
OnClick := @ButtonBacktClick;
end;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
ButtonBack.Show;
case CurPageID of
wpWelcome: begin
ButtonBack.Hide;
end;
end;
end;