[vint56]

patrion, ПРИМЕР

Код:

procedure CurStepChanged(CurStep: TSetupStep);
var
ResultCode:Integer;
begin
  if CurStep = ssPostInstall then
  begin
  WizardForm.StatusLabel.Caption:='Идет обновление DirectX ...';
  WizardForm.StatusLabel.Font.Color:= ClRed;
  WizardForm.StatusLabel.Font.Name:= 'Georgia';
  WizardForm.StatusLabel.Font.Size:= 11
  WizardForm.StatusLabel.Font.Style := [fsBold, fsItalic];
  Exec(ExpandConstant('{src}\DirectX\DXSETUP.exe'), '/silent', ExpandConstant('{src}\DirectX'), SW_SHOW, ewWaitUntilTerminated, ResultCode);
  WizardForm.StatusLabel.Caption:='Идет обновление Redist ...';
  WizardForm.StatusLabel.Font.Color:= ClRed;
  WizardForm.StatusLabel.Font.Name:= 'Georgia';
  WizardForm.StatusLabel.Font.Size:= 11 
  WizardForm.StatusLabel.Font.Style := [fsBold, fsItalic]; 
  Exec(ExpandConstant('{src}\Redist\vcredist_x86.exe'), '/Q', ExpandConstant('{src}\Redist'), SW_SHOW, ewWaitUntilTerminated, ResultCode);
end;
end;

[mrdron18]

у меня вопрос. я отключил ReadyPage
как на странице SelectTasksPage изменить надпись на кнопке далее (только на этой странице и только на кнопке далее)?
вместо далее - установить
скрипт без всяких наворотов простой
помогите реализовать

[vint56]

mrdron18,

Код:

procedure CurPageChanged(CurPageID: Integer);
begin
  if CurPageID=wpSelectProgramGroup then
  begin
  If WizardForm.FindComponent('NextButton') is TButton
  then
  TButton(WizardForm.FindComponent('NextButton')).Caption:='Установить';
end;
end;

[YURSHAT]

vint56,

Можно еще проще

Код:

procedure CurPageChanged(CurPageID: Integer);
begin
  if CurPageID=wpSelectProgramGroup then
  WizardForm.NextButton.Caption:='Установить';
end;

[mrdron18]

спасибо

[travian]

Помогите пожалуйста.
Как можно удалить кнопку на определённой странице? Или как сделать её не активной, опять же на определённой странице?
Интересующая страницу выбора пути установки.
Интересующая кнопка "назад"

[YURSHAT]

Помогите пожалуйста. Как можно удалить кнопку на определённой странице? »

Пример

Код:

[Setup]
AppName=My Program
AppVerName=My Program 1.5
DefaultDirName={pf}\My Program

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

[code_]

procedure CurPageChanged(CurPageID: Integer);
begin
  if CurPageID=wpSelectDir then
  WizardForm.BackButton.Enabled:=False else
  WizardForm.BackButton.Enabled:=True;
  //для удаления
  //WizardForm.BackButton.Hide else
  //WizardForm.BackButton.Show;
end;

[mrdron18]

Код:

procedure CurStepChanged(CurStep: TSetupStep);
var
  res:Integer;
  app, arc, dest:string;
begin
If CurStep=ssPostInstall
then
begin
  app:=ExpandConstant('{app}')+'\7z.exe';
  arc:=ExpandConstant('{app}')+'\1.7z';
  dest:=ExpandConstant('{app}');
  Exec(app, 'x "'+ arc + '" -y -o"'+ dest + '"', '', SW_SHOWNORMAL, ewWaitUntilTerminated, res);
end;
end;

помогите что сюда добавить чтобы консоль не выскакивала? типа как Flags: runhidden; через ран. не как не пойму как сделать

пардон уже разобрался

[mariolast]

Есть у кого пример окошка в секции
function InitializeUninstall(): Boolean;
с чекбоксами.
Нужно при деинсталляции удалить те компоненты, которые привязаны к галочкам в чекбоксах.

[y76uGZ]

здравствуйте, нашел скрипт ввода пароля, как можно сделать что бы пароль не шифровался, оставить только форму ввода.

Код:

[Setup]
AppName=Password
AppVerName=Encryption Password
CreateAppDir=false
Encryption=true
Password=202cb962ac59075b964b07152d234b70
;на странице пароля ввести: 123

#define EncryptPass
#define i Len(SetupSetting("Password"))
#for {i; i > 0; i--} EncryptPass = EncryptPass + Copy(SetupSetting("Password"), i, 1)
;(можно запутать ещё и так: '0123456789' > '4321098765') #define EncryptPass Copy(EncryptPass, Len(EncryptPass)/2+1, Len(EncryptPass) -Len(EncryptPass)/2) + Copy(EncryptPass, 1, Len(EncryptPass)/2)

[_Code]
var PasswordText: TPanel;

Function DecryptPass(Password: String): String;
	var n: Integer;
Begin
	for n:= Length(Password) Downto 1 do Result:= Result + Copy(Password, n, 1)
End;

Function CheckPassword(Password: String): Boolean;
Begin
	Result:= (GetMD5OfString(Password) = DecryptPass('{#EncryptPass}'))
	if not Result then exit;
		PasswordText.Caption:= WizardForm.PasswordEdit.Text
		WizardForm.PasswordEdit.Text:= DecryptPass('{#EncryptPass}')
		PasswordText.Show
End;

Procedure PasswordEditOnKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
Begin
	WizardForm.Nextbutton.Enabled:= CheckPassword(WizardForm.PasswordEdit.Text)
End;

Procedure CurPageChanged(CurPageID: Integer);
Begin
	if CurPageID = wpPassword then if PasswordText.Caption = '' then WizardForm.Nextbutton.Enabled:= CheckPassword(WizardForm.PasswordEdit.Text)
End;

Procedure InitializeWizard;
Begin
	WizardForm.PasswordEdit.OnKeyUp:= @PasswordEditOnKeyUp
PasswordText:=TPanel.Create(WizardForm)
	PasswordText.SetBounds(WizardForm.PasswordEdit.Left, WizardForm.PasswordEdit.Top, WizardForm.PasswordEdit.Width, WizardForm.PasswordEdit.Height)
	PasswordText.Font.Style:= [fsBold]
	PasswordText.Alignment:=taLeftJustify
	PasswordText.BevelOuter:= bvNone
	PasswordText.BorderStyle:= bsSingle
	PasswordText.Parent:= WizardForm.PasswordPage
    PasswordText.Hide
End;