Inno Ultra Lite

[sentinelks]

no possible! isee is limitated
use external code:

ex:
[Setup]
AppName=TlamaTest
AppVersion=Test
DefaultDirName=Test
OutputDir=.

[Languages]
Name: "default"; MessagesFile: "compiler:Default.isl"
[code]
procedure InitializeWizard();
var
WizardLabel1, WizardLabel2, FinalLabel1, FinalLabel2: TLabel;
begin
WizardForm.WelcomeLabel1.Hide;
WizardForm.WelcomeLabel2.Hide;
WizardForm.FinishedHeadingLabel.Hide;
WizardForm.FinishedLabel.Hide;
WizardForm.WizardBitmapImage.Width := 501;
WizardForm.WizardBitmapImage.Height := 315;

WizardLabel1 := TLabel.Create(WizardForm);
WizardLabel1.Left := ScaleX(176);
WizardLabel1.Top := ScaleY(16);
WizardLabel1.Width := ScaleX(301);
WizardLabel1.Height := ScaleY(54);
WizardLabel1.AutoSize := False;
WizardLabel1.WordWrap := True;
WizardLabel1.Font.Name := 'impact';
WizardLabel1.Font.Size := 13;
WizardLabel1.Font.Color:= clWhite;

WizardLabel1.Caption := WizardForm.WelcomeLabel1.Caption;
WizardLabel1.Transparent := True;
WizardLabel1.Parent := WizardForm.WelcomePage;
WizardLabel2 :=TLabel.Create(WizardForm);
WizardLabel2.Top := ScaleY(76);
WizardLabel2.Left := ScaleX(176);
WizardLabel2.Width := ScaleX(301);
WizardLabel2.Height := ScaleY(234);
WizardLabel2.AutoSize := False;
WizardLabel2.WordWrap := True;
WizardLabel2.Font.Name := 'Arial';
WizardLabel2.Font.Color:= clYellow;
WizardLabel2.ShowAccelChar := False;
WizardLabel2.Caption := WizardForm.WelcomeLabel2.Caption;
WizardLabel2.Transparent := True;
WizardLabel2.Parent := WizardForm.WelcomePage;

WizardForm.WizardBitmapImage2.Width := 501;
WizardForm.WizardBitmapImage2.Height := 315;

FinalLabel1 := TLabel.Create(WizardForm);
FinalLabel1.Left := ScaleX(176);
FinalLabel1.Top := ScaleY(16);
FinalLabel1.Width := ScaleX(301);
FinalLabel1.Height := ScaleY(54);
FinalLabel1.AutoSize := False;
FinalLabel1.WordWrap := True;
FinalLabel1.Font.Name := 'impact';
FinalLabel1.Font.Size := 15;
FinalLabel1.Font.Style := [fsBold];
FinalLabel1.Font.Color:= clLime;
FinalLabel1.ShowAccelChar := False;
FinalLabel1.Caption := WizardForm.FinishedHeadingLabel.Caption;
FinalLabel1.Transparent := True;
FinalLabel1.Parent := WizardForm.FinishedPage;

FinalLabel2 :=TLabel.Create(WizardForm);
FinalLabel2.Top := ScaleY(76);
FinalLabel2.Left := ScaleX(176);
FinalLabel2.Width := ScaleX(301);
FinalLabel2.Height := ScaleY(53);
FinalLabel2.AutoSize := False;
FinalLabel2.WordWrap := True;
FinalLabel2.Font.Name := 'Arial';
FinalLabel2.Font.Color:= clolive;
FinalLabel2.ShowAccelChar := False;
FinalLabel2.Caption := WizardForm.FinishedLabel.Caption;
FinalLabel2.Transparent := True;
FinalLabel2.Parent := WizardForm.FinishedPage;
end;


logo:
[Setup]
AppName=TestButton
AppVerName=TestButton
DefaultDirName=C:\TestButton

[Files]
Source: Button.bmp; Flags: dontcopy

[Code]
procedure TestButtonOnClick(Sender: TObject);
begin
MsgBox('Hello!', mbInformation, MB_OK)
end;

procedure InitializeWizard();
var
BtnPanel: TPanel;
BtnImage: TBitmapImage;

begin
BtnPanel:=TPanel.Create(WizardForm)
with BtnPanel do begin
Left:=20
Top:=325
Width:=132
Height:=27
Cursor:=crHand
OnClick:=@TestButtonOnClick
Parent:=WizardForm
end
BtnImage:=TBitmapImage.Create(WizardForm)
with BtnImage do begin
AutoSize:=True
Enabled:=False
ExtractTemporaryFile('Button.bmp')
Bitmap.LoadFromFile(ExpandConstant('{tmp}')+'\Butt on.bmp')
Parent:=BtnPanel
end
end;

[sentinelks]

Button Botva2 + link

#define Webs "www.google.it"
[Setup]
AppName=Test
AppVersion=Test
DefaultDirName=Test
OutputDir=.

[Files]
Source: botva2.dll; Flags: dontcopy
Source: CallbackCtrl.dll; Flags: dontcopy
Source: logo.png; Flags: dontcopy

[Code]
const
BtnClickEventID = 1;

type
TBtnEventProc = procedure (SK:HWND);

var
Btn:TButton;
SK,hLogoBtn:HWND;

function WrapBtnCallback(Callback: TBtnEventProc; ParamCount: Integer): Longword; external 'wrapcallbackaddr@{tmp}\CallbackCtrl.dll stdcall delayload';
function BtnCreate(hParent :HWND; Left, Top, Width, Height :integer; FileName :PAnsiChar; ShadowWidth :integer; IsCheckBtn :boolean) :HWND; external 'BtnCreate@{tmp}\botva2.dll stdcall delayload';
procedure BtnSetEvent(SK :HWND; EventID :integer; Event :Longword); external 'BtnSetEvent@{tmp}\botva2.dll stdcall delayload';
procedure gdipShutdown; external 'gdipShutdown@{tmp}\botva2.dll stdcall delayload';

#ifdef Webs
procedure LogoBtnClick(hBtn:HWND);
var
ErrorCode: Integer;
begin
ShellExec('open', '{#Webs}', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode)
end;
#endif

function InitializeSetup():boolean; begin
ExtractTemporaryFile('logo.png');
ExtractTemporaryFile('botva2.dll');
ExtractTemporaryFile('CallbackCtrl.dll');
Result:=True;
end;

procedure InitializeWizard(); begin
with WizardForm do begin
hLogoBtn:=BtnCreate(WizardForm.Handle,12,320,100,3 5,ExpandConstant('{tmp}\logo.png'),1,False);
BtnSetEvent(hLogoBtn,BtnClickEventID,WrapBtnCallba ck(@LogoBtnClick,1));
end;
end;

procedure DeinitializeSetup();
begin
gdipShutdown;
end;