[Tco 03]

Всем привет.
Johny777
Вы, как я понимаю, пользуетесь (или пользовались) этим кодом. Да, действительно код хорош! Не могли бы Вы, пожалуйста, подсказать, как в этом коде отделить функцию распаковки и запаковки. То есть, мне нужна только функция распаковки. Это надо, так сказать бо большому счёту для истетики чтобы в коде не было ничего лишнего. И возможно ли добавить к нему кнопку "Отмена"?

EvilAlex
Возможно так сделать, но это нужно делать отдельно, то есть нужно создавать радиобаттоны в ручную!

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

Код:

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

[*Code]
var
  NewRadioButton1: TNewRadioButton;
  NewRadioButton2: TNewRadioButton;

procedure RedesignWizardForm;
begin
  NewRadioButton1 := TNewRadioButton.Create(WizardForm);
  with NewRadioButton1 do
  begin
    Name := 'NewRadioButton1';
    Parent := WizardForm.WelcomePage;
    Left := ScaleX(256);
    Top := ScaleY(248);
    Width := ScaleX(113);
    Height := ScaleY(17);
    Checked := true;
  end;

  NewRadioButton2 := TNewRadioButton.Create(WizardForm);
  with NewRadioButton2 do
  begin
    Name := 'NewRadioButton2';
    Parent := WizardForm.WelcomePage;
    Left := ScaleX(256);
    Top := ScaleY(280);
    Width := ScaleX(113);
    Height := ScaleY(17);
  end;

  NewRadioButton1.TabOrder := 2;
  NewRadioButton2.TabOrder := 3;
end;

procedure InitializeWizard();
begin
  RedesignWizardForm;
end;

Потом делать проверку что выбрано.

TERMINAL
Как вариант, могу предложить так:

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

Код:

procedure CurStepChanged(CurStep: TSetupStep);
begin
if CurStep=ssPostInstall then
begin
  RenameFile(ExpandConstant('{app}\unins000.exe'), ExpandConstant('{app}\Uninstall.exe'));
  RenameFile(ExpandConstant('{app}\unins000.dat'), ExpandConstant('{app}\Uninstall.dat'));
end;
end;

И при неободимости в секции [Setup] пишем:
UninstallDisplayIcon={app}\Uninstall.exe