[Setup]
AppName=MyApp
AppVerName=MyApp
DefaultDirName={pf}\MyApp

[code]

function FindSection(List: TStringList; Section: String): Integer;
var n: integer;
begin
   Result:=-1;
   for n:=0 to List.Count-1 do begin
     if AnsiLowercase(List.Strings[n])=AnsiLowercase('['+Section+']') then begin
       Result:=n;
       Break;
     end;
   end;
end;

function FindNextSection(list: TStringList; FirstSection: Integer): Integer;
var n: integer;
begin
   Result:= FirstSection; if FirstSection+1>=List.Count then Exit;
   for n:= FirstSection+1 to List.Count-1 do begin
     if (Pos('[', List.Strings[n])>0)and(Pos(']', List.Strings[n])>0) then begin
       Result:=n;
       Break;
     end;
   end;
   if Result=FirstSection then Result:= List.Count-1;
end;

function FindKey(list: TStringList; Key: String; n1, n2: Integer): Integer;
var n: integer;
begin
   Result:=-1;
   for n:=n1+1 to n2-1 do begin
     if Pos(AnsiLowercase(Key+'='), AnsiLowercase(List.Strings[n])) > 0 then begin
       Result:= n;
       Break;
     end;
   end;
end;

function SetIniStringEx(Filename: String; Section, Key, Value: String; Line: Integer): Boolean;
var Str: TStringList; nsect1, nsect2, nline, nkey: integer;
begin
   Str:= TStringList.Create; if Line=0 then Line:=1;
   try
     if (not FileExists(Filename)) then begin
       Str.Add('['+Section+']');
       Str.Add(Key+'='+Value);
       Str.SaveToFile(Filename);
       Result:= True;
     end else begin
       Str.LoadFromFile(Filename);
       nsect1:= FindSection(str, Section);
       if (nsect1<>-1) then begin
         nsect2:= FindNextSection(str, nsect1);
         nline:= nsect1+line;
         if nline>=nsect2 then nline:=nsect2-1;
         nkey:= FindKey(str, key, nsect1, nsect2);
         if nkey=-1 then begin
           Str.Insert(nline, key+'='+value);
         end else begin
           Str.Strings[nkey]:=Key+'='+Value;
         end;
       end else begin
         Str.Add('');
         Str.Add('['+Section+']');
         Str.Add(Key+'='+Value);
       end;
       Str.SaveToFile(Filename);
       Result:= True;
     end;
   finally
     Str.Free;
   end;
end;

procedure InitializeWizard();
begin
   SetIniStringEx('E:\search.ini', 'Search Engine 1', 'MyEngine', 'jsdfhjkfkjfdgh11', 3)
end;

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

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

[CustomMessages]
HeaderLabelPage=Выберите тип установки
MyRadioCaption_1=Установка по умолчанию
MyRadioCaption_2=Выборочная установка
PageTextHeader=На этой странице Вы можете выбрать тип установки, который для Вас наиболее удобен.
MyText_1=Установка будет произведена полностью в автоматическом режиме.%n(Подходит для не подготовленных пользователей)
MyText_2=Будет предложен выбор директории установки.%n(Для продвинутых пользователей)

[_code]
function GetModuleHandle(lpModuleName: LongInt): LongInt; external 'GetModuleHandleA@kernel32.dll stdcall';
function ExtractIcon(hInst: LongInt; lpszExeFileName: AnsiString; nIconIndex: LongInt): LongInt; external 'ExtractIconA@shell32.dll stdcall';
function DrawIconEx(hdc: LongInt; xLeft, yTop: Integer; hIcon: LongInt; cxWidth, cyWidth: Integer; istepIfAniCur: LongInt; hbrFlickerFreeDraw, diFlags: LongInt): LongInt;external 'DrawIconEx@user32.dll stdcall';
function DestroyIcon(hIcon: LongInt): LongInt; external 'DestroyIcon@user32.dll stdcall';

const
DI_NORMAL = 3;

var
MyNewPage: TWizardPage;
Rect: TRect;
HIcon: LongInt;
AIconFileName: String;
MyRadioBtn_1, MyRadioBtn_2: TNewRadioButton;

procedure GetInstTypePage();
begin
MyNewPage := CreateCustomPage(wpWelcome,
ExpandConstant('{cm:HeaderLabelPage}'), '');

try
// в конкретном примере из этого файла (C:\Windows\System32\shell32.dll) берём иконки, для пробного показа.
// Можно использовать обычные .ico
AIconFileName := ExpandConstant('{sys}\shell32.dll');
//

Rect.Left := 0;
Rect.Top := 0;
Rect.Right := 32;
Rect.Bottom := 32;

hIcon := ExtractIcon(GetModuleHandle(0), AIconFileName, 26);
try
with TBitmapImage.Create(WizardForm) do
begin
Left := ScaleX(15);
Top := ScaleY(68);
Width := 32;
Height := 32;
with Bitmap do
begin
Width := 32;
Height := 32;
Canvas.Brush.Color := clBtnFace;
Canvas.FillRect(Rect);
DrawIconEx(Canvas.Handle, 0, 0, HIcon, 32, 32, 0, 0, DI_NORMAL);
end;
Parent := MyNewPage.Surface;
end;
finally
DestroyIcon(hIcon);
end;

hIcon := ExtractIcon(GetModuleHandle(0), AIconFileName, 19);
try
with TBitmapImage.Create(WizardForm) do
begin
Left := ScaleX(15);
Top := ScaleY(138);
Width := 32;
Height := 32;
with Bitmap do
begin
Width := 32;
Height := 32;
Canvas.Brush.Color := clBtnFace;
Canvas.FillRect(Rect);
DrawIconEx(Canvas.Handle, 0, 0, HIcon, 32, 32, 0, 0, DI_NORMAL);
end;
Parent := MyNewPage.Surface;
end;
finally
DestroyIcon(hIcon);
end;
except
end;

with TNewStaticText.Create(WizardForm) do
begin
Width := WizardForm.InnerNotebook.Width;
Height := ScaleY(26);
WordWrap := True;
Caption := ExpandConstant('{cm:PageTextHeader}');
Parent := MyNewPage.Surface;
end;

MyRadioBtn_1 := TNewRadioButton.Create(WizardForm);
with MyRadioBtn_1 do
begin
Top := ScaleY(50);
Width := ScaleX(150);
Caption := ExpandConstant('{cm:MyRadioCaption_1}');
Checked := True;
Parent := MyNewPage.Surface;
end;

with TNewStaticText.Create(WizardForm) do
begin
Left := ScaleX(60);
Top := ScaleY(68);
Width := WizardForm.InnerNotebook.Width - ScaleX(60);
Height := ScaleY(26);
WordWrap := True;
Caption := ExpandConstant('{cm:MyText_1}');
Parent := MyNewPage.Surface;
end;

MyRadioBtn_2 := TNewRadioButton.Create(WizardForm);
with MyRadioBtn_2 do
begin
Top := ScaleY(120);
Width := ScaleX(150);
Caption := ExpandConstant('{cm:MyRadioCaption_2}');
Parent := MyNewPage.Surface;
end;

with TNewStaticText.Create(WizardForm) do
begin
Left := ScaleX(60);
Top := ScaleY(138);
Width := WizardForm.InnerNotebook.Width - ScaleX(60);
Height := ScaleY(26);
WordWrap := True;
Caption := ExpandConstant('{cm:MyText_2}');
Parent := MyNewPage.Surface;
end;
end;

function ShouldSkipPage(PageID: Integer): Boolean;
begin
if (PageID >= wpSelectDir) and (PageID < wpReady) and (MyRadioBtn_1.Checked) then
Result := True;
end;

procedure InitializeWizard();
begin
GetInstTypePage();
end;

procedure DeinitializeSetup();
begin
     if InitializeSetup then
      gdipShutdown
      BASS_Stop
      BASS_Free
end;