[Gnom_aka_Lexander]

Qu@dr0, Вот так все работает, проверил. Лучше, если ини-файл будет в папке, где ему положено быть. В выделенной строке нужно указать путь к нему. оставил никэдит и выбор яззыка. Там был косячек, исправил.

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

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

[code]
var
{ NicEdit } Label1: TLabel; { NicEdit }
{ Lang } Label2: TLabel;{ Lang }
{ NicEdit } NicEdit: TNewEdit; { NicEdit }
{ Lang } Lang: TNewComboBox; { Lang }

procedure InitializeWizard();
begin
{ NicEdit }
Label1 := TLabel.Create(WizardForm);
with Label1 do
begin
Parent := WizardForm.FinishedPage;
Caption := 'Введите ваш никнейм:';
Transparent := False;
Left := ScaleX(24);
Top := ScaleY(192);
Width := ScaleX(118);
Height := ScaleY(13);
end;
{ NicEdit }

{ Lang }
Label2 := TLabel.Create(WizardForm);
with Label3 do
begin
Parent := WizardForm.FinishedPage;
Caption := 'Выбрите язык клиента:';
Transparent := False;
Left := ScaleX(24);
Top := ScaleY(240);
Width := ScaleX(121);
Height := ScaleY(13);
end;
{ Lang }

{ NicEdit }
NicEdit := TNewEdit.Create(WizardForm);
with NicEdit do
begin
Parent := WizardForm.FinishedPage;
Left := ScaleX(24);
Top := ScaleY(208);
Width := ScaleX(121);
Height := ScaleY(21);
end;
{ NicEdit }

{ Lang }
Lang := TNewComboBox.Create(WizardForm);
with Lang do
begin
Parent := WizardForm.FinishedPage;
Left := ScaleX(24);
Top := ScaleY(256);
Width := ScaleX(121);
Height := ScaleY(21);
DropDownCount := 2;
MaxLength := 2;
ParentColor := True;
Text := 'Русский';
Items.Text := 'Русский' + #13#10 +
'Английский';
end;
{ Lang }
end;

function NextButtonClick(CurPageID: Integer): Boolean;
var s1,s2:String;
begin
If CurPageID=wpFinished Then
Begin

{ Lang } If Lang.Text = 'Русский' Then s1:='Russian' else s1:='English'; { Lang }

{ NicEdit } s2:=NicEdit.Text; { NicEdit }
{ Lang } SetIniString('Emulator', 'Language', s1, ExpandConstant('{app}\rev.ini'));{ Lang }
{ NicEdit } SetIniString('steamclient', 'PlayerName', s2, ExpandConstant('{app}\rev.ini')); { NicEdit }
end;
Result:=True;
end;

куски заключенные между { NicEdit } и { Lang } овечают за понятное, думаю, действие