[El Sanchez]

Инсталлятор прочесть из реестра не может, кажет альтернативный путь установки. Но при этом рядом есть ключ HKLM\Software\AGEIA Technologies,PhysXCore Path с ним все работает без проблем! Что за избирательность? »

Debugger, по умолчанию инсталлятор работает в 32-разрядном режиме, поэтому все обращения к 64-разрядным разделам реестра и системным директориям перенаправляются в их 32-разрядные аналоги. Либо переводите инсталлятор в 64-разрядный режим установкой директивы ArchitecturesInstallIn64BitMode=x64, либо обращайтесь к 64-разрядному разделу как к 64-разрядному: DefaultDirName={reg:HKLM64\SOFTWARE\Adobe\Photoshop\55.0,PluginPath|C:\123}

[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

[habib2302]

и как перед установкой распаковать деинсталлятор для adobe flash player во временную папку {tmp}

[Debugger]

El Sanchez, да, все работает. Я проверял HKLM64, но ДО того как выставлял директивы указанные в предыдущем посте. Спасибо!
Почему же работает соседняя ветка?

[Nordek]

Dodakaedr,

Код:

[Registry]
Root: HKLM; SubKey: SOFTWARE\RegisteredApplications; ValueType: string; ValueName: Kallisto; ValueData: SOFTWARE\Clients\Media\Kallisto\Capabilites0; Flags: uninsdeletevalue

По первому, насчёт перезаписи - то по умолчанию и так будет перезаписано.
А по второму, достаточно будет одного флага uninsdeletevalue - т.е в "RegisteredApplications" удалит параметр "Kallisto" со значением, но не затронет сам раздел "RegisteredApplications (SOFTWARE\RegisteredApplications) - т.к в нём могут иметься другие параметры от других программ".

и как перед установкой распаковать деинсталлятор для adobe flash player во временную папку {tmp} »

Код:

ExtractTemporaryFile('install_flash_player_ax.exe');
ExtractTemporaryFile('install_flash_player.exe');
ExtractTemporaryFile('uninstall_flash_player.exe');

[El Sanchez]

Я проверял HKLM64, но ДО того как выставлял директивы указанные в предыдущем посте »

Debugger, указание HKLM64 достаточно в вашем случае для 32-разрядного режима работы инсталлятора, нет необходимости одновременно еще и директиву ArchitecturesInstallIn64BitMode применять.

Почему же работает соседняя ветка? »

Debugger, потому что в 32-разрядном аналоге раздела реестра эта запись тоже есть.
P.S. Тут, тут, тут и тут по теме.

[Dodakaedr]

Есть способ изменить цвет текста при включенном Transparent?

[innot20]

Возможно ли распаковать архив pkg ? в определённую папочку

[Nordek]

Есть способ изменить цвет текста »

Код:

Font.Color:=$FF0000;

[Dodakaedr]

Nordek, это при включенной прозрачности?

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

Код:

with WizardForm.PageDescriptionLabel do
  begin
    Color := clMenuText;
    Font.Color := clBlue;
    ParentColor := False;
    ParentFont := False;
    OnClick := @PageDescriptionLabelClick;
    Transparent := True;
    Left := ScaleX(0);
    Top := ScaleY(23);
    Width := ScaleX(261);
  end;