[diman_21Ru]

nik1967, Ясно

[palsn2000]

Здравствуйте.
Если в инсталляторе присутствует InfoAfterPage, то на FinishedPage становится видна и активна кнопка "<Back"
Я хочу её отключить и сделать невидимой (ModalResalt=mrNone, Visible=False)
при попытке изменить дизайнером диалогов (использую расширенную версию от Restools) изменяется общая кнопка "<Back" для всех страниц, и свойство Visible выделено серым - недоступно для редактирования.

Отключить хочу потому, что при автоматическом переходе на страницу InfoAfterPage у меня выдаётся звуковой сигнал о завершении установки, а при повторном переходе на страницу InfoAfterPage со страницы FinishedPage при нажатии на кнопку "<Back" возникает Runtime Error с подписью что не может извлечь файл "Complete.mp3" из временной папки ввиду его отсутствия.
(хочу отключить и спрятать именно кнопку, а не повторно проигрывать звуковой файл).

[Dodakaedr]

palsn2000, Попробуйте так

Код:

procedure CurPageChanged(CurPageID: Integer);
begin
  case CurPageID of
    wpFinished: begin
      WizardForm.BackButton.Hide; //скрываем
      //WizardForm.BackButton.Enabled := False; //неактивность кнопки
      end;
end;
end;

[kotyarko@fb]

Если в инсталляторе присутствует InfoAfterPage, то на FinishedPage становится видна и активна кнопка "<Back" Я хочу её отключить и сделать невидимой »

Код:

Procedure CurPageChanged(CurPageID: Integer);
begin
 case CurPageID of
  wpFinished: WizardForm.BackButton.Visible := False;
 end;
end;

Снова опоздал

[palsn2000]

Dodakaedr, Спасибо за пример, только вот новая трудность: у меня в коде уже есть одна
procedure CurPageChanged(CurPageID: Integer);
и Ваш кусок кода я назвал
procedure CurPageChanged1(CurPageID: Integer); со скрытием кнопки WizardForm.BackButton.Hide;

Компилируется всё отлично, но не работает (кнопка всё равно есть) в отладчике кружочки серые - т.е. к процедуре нет обращения.

Подобные проблемы были ранее с InitializeWizard
Решал через запись следующего вида:
Procedure InitializeWizard();
begin
InitializeWizard1();
InitializeWizard2();
InitializeWizard3();
end;

Но с CurPageChanged1 у меня так не получается
Не подскажите как записать для нескольких procedure CurPageChanged(CurPageID: Integer); ?
Заранее спасибо.

[Dodakaedr]

palsn2000, вижу проще сделать по другому: покажите свою процедуру procedure CurPageChanged(CurPageID: Integer);
или же если уже используется wpFinished то добавьте WizardForm.BackButton.Hide;
вот так:

Код:

wpFinished:
begin
      WizardForm.BackButton.Hide; //скрываем
      //WizardForm.BackButton.Enabled := False; //неактивность кнопки
end;

или так

Код:

 if CurPageID = wpFinished then WizardForm.BackButton.Hide;

смотря какой там у вас вариант используется.

[palsn2000]

Dodakaedr, Спасибо разобрался.
Всё сделал в одной процедуре
сначала у меня идёт

if CurPageID = wpInfoAfter then
.......
мой код
.......
затем я добавил
if CurPageID = wpFinished then
и далее Ваш код.

Всё заработало, ещё раз спасибо.

[Dodakaedr]

Всё заработало, ещё раз спасибо. »

не за что и для этого есть Полезное сообщение

[Dodakaedr]

Как заставить этот код работать?(unicode от restools). Нужно получить путь к папке "Моя музыка"

Скрытый текст

Код:

[Setup]
AppName=test
AppVersion=1.0
DefaultDirName={pf}\test

[Languages]
Name: russian; MessagesFile: compiler:Languages\Russian.isl

[Code]
type
pchar=pansichar;

const
MAX_PATH = 260;
CSIDL_MYMUSIC = $0d;

function SHGetSpecialFolderPath(hwndOwner: HWND; lpszPath: PChar; nFolder: Integer; fCreate: BOOL): BOOL;
external 'SHGetSpecialFolderPathA@shell32.dll stdcall';

function GetSpecialPath(CSIDL: Word): string;
var
s: string;
begin
SetLength(s, MAX_PATH);
if not SHGetSpecialFolderPath(0, PChar(s), CSIDL, True) then s := '';
Result:= PChar(s);
end;

procedure InitializeWizard;
begin
MsgBox(GetSpecialPath(CSIDL_MYMUSIC), mbInformation, MB_OK);
end;

Решено:

Скрытый текст

Код:

[Setup]
AppName=test
AppVersion=1.0
DefaultDirName={pf}\test

[Languages]
Name: russian; MessagesFile: compiler:Languages\Russian.isl

[Code]
const
  CSIDL_MYMUSIC = $0d;

procedure InitializeWizard();
begin
  WizardForm.WelcomeLabel2.Caption := GetShellFolderByCSIDL(CSIDL_MYMUSIC, True);
end;

[ShadeUa]

Вот так? и потом все ето прописать в ChangeLang? https://yadi.sk/i/USsBrvW9eoooc »

Да »

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