[ZVSRus]

DA-Bro,

Вы прям кладезь знаний.

Удали это. Не совсем правильная формулировка. Языки программирования не знаю от слова совсем. Если-бы вы прошлись по всем форумам от первой страницы до последней, много бы нашли для себя нужных функций и процедур, и познаний было бы больше.

Пример

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

[Languages]
Name: "ENG"; MessagesFile: "compiler:Languages\English.isl"
Name: "RUS"; MessagesFile: "compiler:Languages\Russian.isl"

[Files]
Source: ReadMeRu.rtf; Flags: dontcopy
Source: ReadMeEn.rtf; Flags: dontcopy

[CustomMessages]
ENG.text=More detailed
RUS.text=Подробнее

ENG.text1=Close
RUS.text1=Закрыть

ENG.text2=About the program
RUS.text2=О программе

ENG.text3=Website
RUS.text3=Сайт

[code]
var
Flag : Boolean;
WebButton : TNewButton;
AboutButton : TNewButton;
RichEditViewer : TRichEditViewer;
ReadmeRu, ReadmeEn : AnsiString;
r: integer;

procedure WebButtonOnClick(Sender: TObject);
begin
ShellExec('open', 'http://forum.oszone.net/post-2996351-870.html', '','', SW_SHOW, ewNoWait, r);
end;

procedure SettingHideShowOnClick(Sender: TObject);
begin
Wizardform.NextButton.Enabled := True;
if Flag = False then begin
RichEditViewer.Hide;
Flag:= True;
AboutButton.Caption := CustomMessage('text');
end else begin
RichEditViewer.Show;
Flag:= False;
AboutButton.Caption := CustomMessage('text1');
Wizardform.NextButton.Enabled := True;
end;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
case CurPageID of
wpWelcome:
begin
Wizardform.NextButton.Enabled := False;
RichEditViewer.Hide;
AboutButton.Caption := CustomMessage('text');
Flag:= True;
end;
end;
end;

procedure InitializeWizard();
begin
ExtractTemporaryFile('ReadMeRu.rtf');
LoadStringFromFile(ExpandConstant('{tmp}')+'\ReadMeRu.rtf', ReadmeRu);
ExtractTemporaryFile('ReadMeEn.rtf');
LoadStringFromFile(ExpandConstant('{tmp}')+'\ReadMeEn.rtf', ReadmeEn);

WebButton := TNewButton.Create(WizardForm);
with WebButton do
begin
Parent := WizardForm.WelcomePage;
SetBounds(ScaleX(42),ScaleY(250),ScaleX(80),ScaleY(23));
Caption := CustomMessage('text3');
WebButton.OnClick := @WebButtonOnClick;
end;

AboutButton := TNewButton.Create(WizardForm);
with AboutButton do
begin
AboutButton.SetBounds(ScaleX(42),ScaleY(280),ScaleX(80),ScaleY(23));
AboutButton.Caption := CustomMessage('text');
AboutButton.ShowHint := True
AboutButton.Hint := CustomMessage('text2');
AboutButton.OnClick := @SettingHideShowOnClick;
AboutButton.Parent := WizardForm.WelcomePage;
AboutButton.Cursor := crHand;
Flag := True;
end;

RichEditViewer := TRichEditViewer.Create(WizardForm);
with RichEditViewer do
begin
Parent := WizardForm.WelcomePage;
SetBounds(ScaleX(164),ScaleY(0),ScaleX(333),ScaleY(314));
ScrollBars := ssVertical;
ReadOnly:= True;

if ActiveLanguage='RUS' then RTFText:= ReadmeRu
else
if ActiveLanguage='ENG' then RTFText:= ReadmeEn;
end;
end;

Извиняюсь за перевод. Перевод машинный.

В кнопке ''Далее'' глюка нет, сделано так специально, активируется после нажатия на кнопку ''Подробнее''. Если это вам не нужно, за комментируй
две строки в procedure SettingHideShowOnClick(Sender: TObject); Wizardform.NextButton.Enabled := True; и Wizardform.NextButton.Enabled := False; в
procedure CurPageChanged(CurPageID: Integer);