[sergey3695]

Как зделать так чтобы иконка отображалась в этой области... »

А толку от неё там? Тупо чтобы была?
Если уж так нужно, то как-то так:

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

Код:

[Setup]
AppName=My Program
AppVerName=My Program v 1.5
DefaultDirName={pf}\My Program
DisableFinishedPage=yes
OutputDir=.
Compression=lzma/ultra

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

[Files]
Source: Files\Icon1.ico; DestDir: {app}; Flags: ignoreversion; Attribs: hidden system; 

[Code ]
function InitializeSetup(): Boolean;
begin
if not FileExists(ExpandConstant('{tmp}\Icon1.ico')) then ExtractTemporaryFile('Icon1.ico'); 
  Result:= True;
end;

var 
  MyIcon: TNewIconImage;   

procedure InitializeWizard();
begin
with WizardForm do begin
  BorderStyle:= bsNone;
  InnerNotebook.Hide;
  OuterNotebook.Hide;
end;    
  MyIcon := TNewIconImage.Create(Wizardform); 
with MyIcon do
begin
  Parent := Wizardform; 
  SetBounds(ScaleX(5),ScaleY(5),ScaleX(16),ScaleY(16)); 
  Icon.LoadFromFile(ExpandConstant('{tmp}\Icon1.ico')); 
end;  
end;

Johny777, на скрин посмотри. Ни че не видешь в правом углу, кнопки на которых свернуть и закрыть.