[nik1967]

Yury_Prizrak, никогда не работал с xml документами, может стоит посмотреть

здесь

XML - Модуль для работы с XML файлами.

[El Sanchez]

Как сначала проверить наличие атрибута 'bbb' »

Yury_Prizrak,

Код:

//способ №1
XMLAttributes := XMLNode.attributes;
XMLAttrib := XMLAttributes.getNamedItem('bbb');
if not VarIsEmpty(XMLAttrib) then MsgBox(XMLAttrib.value, mbInformation, MB_OK);

//способ №2
XMLAttrib := XMLNode.getAttribute('bbb');
if not VarIsNull(XMLAttrib) then MsgBox(XMLAttrib, mbInformation, MB_OK);

[Ivan_009]

Как передвинуть кнопку "завершить" где должна быть кнопка "отмена"

[Johny777]

Ivan_009,
кнопки "завершить" и "установить" нет!
это всё кнопка "далее" текст которой зависит от её, кнопки, расположения на той или иной странице

передвигать кнопки, если их расположение, на разных страницах разное нужно во встроенной процедуре переключения страниц

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

Код:

procedure CurPageChanged(CurPageID: Integer); 
begin
  case CurPageID of
    wpFinished:
    begin
       /// здесь пишешь координаты кнопки (если ширина и высотра не менялись, то только Top и Left)
    end;
  end;
end;

также запомни для повышении оптимизации, укорачивания кода и тем самым удалении ненужного кода:
если ты кнопку например на странице приветствия расположил слева снизу
и на следующей странице она там же, то при переходе на след. страницу остаются настройки с предыдущей, те не надо указывать те же координаты пока кнопка там же
пример:

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

Код:

procedure CurPageChanged(CurPageID: Integer); 
begin
  case CurPageID of
    wpWelcome:
    begin
       WizardForm.NextButton.SetBounds(ScaleX(543), ScaleY(556), ScaleX(87), ScaleY(27));
    end;
    
    wpSelectDir:
    begin
       WizardForm.NextButton.SetBounds(ScaleX(543), ScaleY(556), ScaleX(87), ScaleY(27));
    end;
  end;
end;

================================== Demo ===================================
настройки переключения как выше(для примера двигаем кнопку далее) :

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

Код:

[Setup]
AppName=My Program
AppVerName=My Program version 1.5
DefaultDirName={pf}\My Program
UninstallFilesDir={app}\uninstall


[code]
procedure CurPageChanged(CurPageID: Integer);
begin
  case CurPageID of
    wpWelcome: WizardForm.NextButton.Left := ScaleX(5);

    wpSelectDir: WizardForm.NextButton.Left := ScaleX(30);

    wpReady: WizardForm.NextButton.Left := ScaleX(70);
  end;
end;

те же настройки через таймер (не использовать такой метод без нужды)
под расширенную версию:

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

Код:

[Setup]
AppName=My Program
AppVerName=My Program version 1.5
DefaultDirName={pf}\My Program
UninstallFilesDir={app}\uninstall


[code]
var
  Page_Timer: Longword;

function SetTimer(hWnd, nIDEvent, uElapse, lpTimerFunc: LongWord): LongWord; external 'SetTimer@user32.dll stdcall';
function KillTimer(hWnd, nIDEvent: LongWord): LongWord; external 'KillTimer@user32.dll stdcall';

procedure Pages;
begin
  case WizardForm.CurPageID of
    wpWelcome: WizardForm.NextButton.Left := ScaleX(5);

    wpSelectDir: WizardForm.NextButton.Left := ScaleX(30);

    wpReady: WizardForm.NextButton.Left := ScaleX(70);
  end;
end;


procedure InitializeWizard;
begin
  Page_Timer := SetTimer(WizardForm.Handle, 3, 1, CallbackAddr('Pages')); /// где 3 уникальное число и в другом таймере должно быть другое, чтоб они не пересекались
end;

procedure DeinitializeSetup;
begin
  KillTimer(WizardForm.Handle, Page_Timer);
end;

[Ivan_009]

Johny777, у меня почемуто вышло так

[Johny777]

Ivan_009,
так сделай:

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

Код:

в процедуре обновления кнопок припиши строки
procedure UpdateButtons();
begin
...
  ButtonPanel[n].Left:= UsedButtons[n].Left;
  ButtonPanel[n].Top:= UsedButtons[n].Top;
...
end; 

if CurPageID = wpFinished then
begin
   ButtonPanel[1].Hide;
   WizardForm.NextButton.SetBounds(твои координаты);
   LoadButtonImage(WizardForm.NextButton, 2);
   UpdateButtons;
end;

дело в том что текстурирование не кнопок
а создание панелей поверх и на них картинок с 2-мя лейблами

[Ivan_009]

Возможно ли на эти кнопки наложить текстуру

[Mafioza]

как ассоциировать файлы *.apm с программой Autoplay menu builder ? заранее спасибо !!!!!

[Ivan_009]

Mafioza, при установке программы автоматически ассоциируются

[Fifth Intellect]

как ассоциировать файлы »

Смотри примеры в справке.
Делается примерно так

Ассоциация файлов

Пример 1

Код:

[Registry]
Root: HKLM; Subkey: "Software\Classes\.w3m"; ValueType: string; ValueName: ""; ValueData: "WorldEdit.Scenario"; Flags: uninsdeletevalue
Root: HKLM; Subkey: "Software\Classes\WorldEdit.Scenario\DefaultIcon"; ValueType: string; ValueName: ""; ValueData: "{app}\WorldEdit.exe,2"; Flags: uninsdeletevalue
Root: HKLM; Subkey: "Software\Classes\WorldEdit.Scenario\shell\open\command"; ValueType: string; ValueName: ""; ValueData: "{app}\World Editor.exe ""%1"""; Flags: uninsdeletevalue

Пример 2

Код:

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

[Registry]
Root: HKLM; Subkey: SOFTWARE\Classes\.v64; Check: CheckOption(0)
Root: HKLM; Subkey: SOFTWARE\Classes\.z64; Check: CheckOption(1)
Root: HKLM; Subkey: SOFTWARE\Classes\MP64; ValueType: string; ValueData: My Program; Flags: uninsdeletekey
Root: HKLM; Subkey: SOFTWARE\Classes\MP64\DefaultIcon; ValueType: string; ValueData: {app}\MyProgram.exe,0
Root: HKLM; Subkey: SOFTWARE\Classes\MP64\shell\open\command; ValueType: string; ValueData: {app}\MyProgram.exe %1

[ Code]
var
  Page: TInputOptionWizardPage;

procedure InitializeWizard();
begin
  Page := CreateInputOptionPage(wpSelectTasks,
  'Select File Extension Association', 'Which the file extension you would like to associate?',
  'Select the file extension you would like to associate with My Program,'#13#10'then click Next.',
  False, False);

  {0} Page.Add('.v64');
  {1} Page.Add('.z64');

Page.Values[0] := True;
end;

function CheckOption(OptionNum: integer): Boolean;
begin
  Result:= Page.Values[OptionNum];
end;

procedure CurPageChanged(CurPageID: Integer);
begin
  if CurPageID = wpReady then
    begin
    WizardForm.ReadyMemo.Lines.Add('');
      if Page.Values[1] or Page.Values[2] then
    WizardForm.ReadyMemo.Lines.Add('File extension association:');
      if Page.Values[1] then
    WizardForm.ReadyMemo.Lines.Add('      .v64');
      if Page.Values[2] then
    WizardForm.ReadyMemo.Lines.Add('      .z64');
  end;
end;

Пример 3

Код:

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

[Types]
Name: full; Description: Полная установка
Name: cu stom_clean; Description: Пользовательская установка; Flags: iscustom

[Components]
Name: main; Description: Основные компоненты; Types: full custom_clean; Flags: checkablealone
Name: main\ass; Description: Установить ассоциации:; Types: full custom_clean; Flags: checkablealone
Name: main\ass\ani; Description: .ani; Types: full custom_clean

[Registry]
Root: HKCU; Subkey: Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\.ani; ValueType: string; ValueName: ; ValueData: ; Components: main\ass\ani
Root: HKCU; Subkey: Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\.ani; ValueType: string; ValueName: ProgID; ValueData: IrfanView.ani; Flags: uninsdeletevalue uninsdeletekeyifempty; Components: main\ass\ani

[ Code]
procedure CurStepChanged(CurStep: TSetupStep);
var
  String: String;
begin
if (CurStep = ssInstall) and (IsComponentSelected('main\ass\ani') = False) then
  if (ExpandConstant('{ reg:HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\.ani,ProgID}') = 'IrfanView.ani') or
    (ExpandConstant('{reg:HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\.ani,ProgID}') = 'IrfanView.ANI') then
    begin
    RegDeleteValue(HKEY_CURRENT_ USER, 'Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\.ani', 'ProgID')
    if (RegQueryStringValue(HKEY_CURRENT_ USER, 'Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\.ani', '', String)) and (String = '') then
        RegDeleteValue(HKEY_CURRENT_ USER, 'Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\.ani', '')
    RegDeleteKeyIfEmpty(HKEY_CURRENT_USER, 'Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\.ani')
    end
end;

Первый пример можно так же ассоциировать не только через HKLM но и HKCU. Это уж по личному усмотрению, кому как удобно.

Вкратце:
HKLM - идёт как общая расчитана на всех пользователей, т.е при таком условии даже новый созданный юзер на компе автоматически ассоциируется с программой.
HKCU - В основном расчитана на одного пользователя, т.е при каком пользователе программа ассоциировалась то на нём и останется, на других зверей не повлеяет.