[saurn]

как сделать чтобы версия определялась через реестр и появлялся диалог с версией »

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

Код:

[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;
  lpBuff: String;

procedure NewButton1Click(Sender: TObject);
begin
    if RegQueryStringValue(HKLM, 'SOFTWARE\Macromedia\FlashPlayerActiveX', 'Version', lpBuff) then
    MsgBox('Установлена версия для Internet Explorer:' + StringOfChar(#32,2) + lpBuff, mbInformation, MB_OK);
end;

procedure NewButton2Click(Sender: TObject);
begin
    if RegQueryStringValue(HKLM, 'SOFTWARE\Macromedia\FlashPlayerPlugin', 'Version', lpBuff) then
    MsgBox('Установлена версия для Firefox, Safari, Opera:' + StringOfChar(#32,2) + lpBuff, mbInformation, MB_OK);
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;

вопрос в том как их прописать в inno setup? »

Код:

[Registry]
Root: HKLM; Subkey: SOFTWARE\RegisteredApplications; ValueType: string; ValueName: Kallisto; ValueData: SOFTWARE\Clients\Media\Kallisto\Capabilites; Flags: deletevalue uninsdeletevalue