[Nordek]

habib2302,

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

Код:

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

[CustomMessages]
Caption=Действия
Description=Выберите действия которые вы хотите сделать.
NewButton1=Проверить версию для Internet Explorer
NewButton2=Проверить версию для Firefox, Safari, Opera
NewButton3=Запустить деинсталлятор Adobe Flash Player


[Code]
var
  ISCustomPage1: TWizardPage;
  NewButton1, NewButton2, NewButton3: TNewButton;
  ResultCode: Integer;

procedure NewButton1Click(Sender: TObject);
begin
  shellexec('open', ExpandConstant('{sys}\calc.exe'), '', '',SW_SHOWNORMAL, ewnowait, ResultCode)
end;

procedure NewButton2Click(Sender: TObject);
begin
  shellexec('open', ExpandConstant('{sys}\notepad.exe'), '', '',SW_SHOWNORMAL, ewnowait, ResultCode)
end;

procedure NewButton3Click(Sender: TObject);
begin
  shellexec('open', ExpandConstant('{sys}\cmd.exe'), '', '',SW_SHOWNORMAL, ewnowait, ResultCode)
end;



procedure InitializeWizard();
begin
  ISCustomPage1 := CreateCustomPage(wpWelcome, CustomMessage('Caption'), CustomMessage('Description'));

  NewButton1 := TNewButton.Create(WizardForm);
  with NewButton1 do
  begin
    Parent := ISCustomPage1.Surface;
    Left := ScaleX(24);
    Top := ScaleY(32);
    Width := ScaleX(371);
    Height := ScaleY(33);
    Caption := CustomMessage('NewButton1');
    OnClick := @NewButton1Click;
  end;

  NewButton2 := TNewButton.Create(WizardForm);
  with NewButton2 do
  begin
    Parent := ISCustomPage1.Surface;
    Left := ScaleX(24);
    Top := ScaleY(88);
    Width := ScaleX(371);
    Height := ScaleY(33);
    Caption := CustomMessage('NewButton2');
    OnClick := @NewButton2Click;
  end;

  NewButton3 := TNewButton.Create(WizardForm);
  with NewButton3 do
  begin
    Parent := ISCustomPage1.Surface;
    Left := ScaleX(24);
    Top := ScaleY(136);
    Width := ScaleX(371);
    Height := ScaleY(33);
    Caption := CustomMessage('NewButton3');
    OnClick := @NewButton3Click;
  end;
end;

Dodakaedr, То что "Перезаписать значение если параметр уже существует" - это значит что если в реестре есть параметр "Kallisto", то при установке, в параметре "Kallisto" перезапишется значение "SOFTWARE\Clients\Media\Kallisto\Capabilites".
Например в "SOFTWARE\RegisteredApplications" ранее уже имеется параметр "Kallisto", а в параметре "Kallisto" значение "SOFTWARE\Clients\Media\KallistoXXX\Capabilites".
У тебя в инсталляторе, значение "SOFTWARE\Clients\Media\Kallisto\Capabilites", то при "Перезаписать значение если параметр уже существует" - заменится значение "SOFTWARE\Clients\Media\KallistoXXX\Capabilites" на "SOFTWARE\Clients\Media\Kallisto\Capabilites"

"Деинсталлировать" - это значит что при удалении программы, удалится и ключ в реестре. Далее зависит от флагов.

Инсталлятор прочесть из реестра не может »

В реестре так:

Код:

Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SOFTWARE\Adobe\Photoshop\55.0]
"PluginPath"="C:\\Program Files\\Adobe\\Photoshop"

???