FAQs: Inno setup

[Gupta]

Someone via PM asked me:
How to Create Buttons in Installers?
Actually, there can be two ways:
First, Playing with pascal and use panels or listviews to create buttons and use ONMOUSEDOWN event to trigger events
For example, See WPI Script of BLUR or Flat Modules(Module\Form.Functions.iss)

Second, can be using libraries to create buttons such as botva2 or ISab.dll
btnprint.iss (botva2.dll)

;Created by South.Tver 02.2010

;ïðèìåð ðàáîòû ñ BtnGetText, BtnSetText, BtnSetFontColor, BtnSetTextAlignment

#include "Modules\botva2.iss"

[Setup]
AppName=BtnPrint by South.Tver
AppVerName=BtnPrint by South.Tver
DefaultDirName={pf}\BtnPrint
OutputBaseFilename=setup

[Files]
Source: Files\*; Flags: dontcopy

[;Code]
type
  TTimerProc = procedure(HandleW, msg, idEvent, TimeSys: LongWord);

var
  hBtn:HWND;
  CurSimbol:integer;
  TimerID:Longword;
  TestText:ansistring;

function SetTimer(hWnd, nIDEvent, uElapse, lpTimerFunc: LongWord): LongWord; external '[email protected] stdcall';
function KillTimer(hWnd, nIDEvent: LongWord): LongWord; external '[email protected] stdcall';
function WrapTimerProc(callback:TTimerProc; paramcount:integer):LongWord; external 'wrapcallbackaddr@files:CallbackCtrl.dll stdcall';

procedure OnTimer(HandleW, msg, idEvent, TimeSys: LongWord);
begin
  CurSimbol:=CurSimbol+1;
  if CurSimbol>Length(TestText) then begin
    KillTimer(0, TimerID);
    Exit;
  end;
  BtnSetText(hBtn,PAnsiChar(BtnGetText(hBtn)+TestText[CurSimbol]));
end;

procedure BtnClick(hBtn:HWND);
begin
  if not BtnGetChecked(hBtn) then begin
    KillTimer(0, TimerID);
    BtnSetText(hBtn,'');
    CurSimbol:=0;
  end else TimerID:=SetTimer(0, 0, 100, WrapTimerProc(@OnTimer, 4));
end;

function InitializeSetup:boolean;
begin
  if not FileExists(ExpandConstant('{tmp}\botva2.dll')) then ExtractTemporaryFile('botva2.dll');
  if not FileExists(ExpandConstant('{tmp}\CallbackCtrl.dll')) then ExtractTemporaryFile('CallbackCtrl.dll');
  Result:=True;
end;

procedure InitializeWizard;
begin
  with WizardForm do begin
    InnerNotebook.Hide;
    OuterNotebook.Hide;
    Bevel.Hide;
    Width:=700;
    Height:=700;
    NextButton.Top:=ClientHeight-50;
    CancelButton.Top:=ClientHeight-50;
  end;

  hBtn:=BtnCreate(WizardForm.Handle,-50,-50,WizardForm.ClientWidth+100,WizardForm.ClientHeight+100,'button2.png',18,True);
  CurSimbol:=0;

  TestText:='ËÈÖÅÍÇÈÎÍÍÎÅ ÑÎÃËÀØÅÍÈÅ '+
            'Ýòà ëèöåíçèÿ äåéñòâèòåëüíà òîëüêî äëÿ ãðàæäàí ñòðàí áûâøåãî ÑÑÑÐ. '+
            'Ãðàæäàíå äðóãèõ ñòðàí îáÿçàíû ïîëüçîâàòüñÿ shareware-âåðñèåé '+
            'ïðîãðàììû, êîòîðóþ ìîæíî áåñïëàòíî ñêà÷àòü ñ ñàéòà '+
            'http://www.ice-graphics.com/ICEReader '+
            'Ïðîãðàììà ICE Book Reader Professional Russian Edition '+
            'ðàñïðîñòðàíÿåòñÿ êàê freeware. '+
            'Âñå àâòîðñêèå ïðàâà íà ïðîãðàììó ICE Book Reader Professional Russian '+
            'Edition ïðèíàäëåæàò ICE Graphics. '+
            'Ãðàæäàíå ñòðàí áûâøåãî ÑÑÑÐ èìåþò ïðàâî èñïîëüçîâàòü äàííóþ âåðñèþ '+
            'ïðîãðàììû ICE Book Reader Professional Russian Edition â '+
            'íåêîììåð÷åñêèõ öåëÿõ áåñïëàòíî. '+
            'Åñëè óñëîâèÿ äàííîé ëèöåíçèè íå óñòðàèâàþò ïîïàäàþùèõ ïîä åå äåéñòâèå '+
            'ëèö, îíè èìåþò ïðàâî âîñïîëüçîâàòüñÿ íà îáùèõ îñíîâàíèÿõ ëèöåíçèåé, '+
            'ïðèâåäåííîé â ôàéëå License.txt. Äëÿ êîììåð÷åñêîãî èñïîëüçîâàíèÿ '+
            'ïðîãðàììîé ICE Book Reader Professional Russian Edition íåîáõîäèìî '+
            'ïîëó÷èòü ïèñüìåííîå ðàçðåøåíèå ICE Graphics ([email protected]). '+
            'ICE Graphics íå ãàðàíòèðóåò îïåðàòèâíîé òåõíè÷åñêîé ïîääåðæêè. '+
            'ICE Graphics îñòàâëÿåò çà ñîáîé ïðàâî îòìåíèòü äåéñòâèå äàííîé '+
            'ëèöåíçèè äëÿ ëþáîé èç ñëåäóþùèõ âåðñèé ïðîãðàììû ICE Book Reader '+
            'Professional Russian Edition. '+
            'Ïðîãðàììà ICE Book Reader Professional Russian Edition '+
            'ðàñïðîñòðàíÿåòñÿ ñâîáîäíî, ïðè óñëîâèè òîãî, ÷òî íàñòîÿùèé äèñòðèáóòèâ '+
            'íå èçìåíåí. Íè îäíî ÷àñòíîå ëèöî èëè îðãàíèçàöèÿ íå ìîæåò áðàòü ïëàòó '+
            'çà ðàñïðîñòðàíåíèå ICE Book Reader Professional Russian Edition áåç '+
            'ïèñüìåííîãî ðàçðåøåíèÿ ICE Graphics. '+
            'ÏÐÎÃÐÀÌÌÀ ICE Book Reader Professional Russian Edition ÏÎÑÒÀÂËßÅÒÑß ÏÎ '+
            'ÏÐÈÍÖÈÏÓ "ÊÀÊ ÅÑÒÜ" ("AS IS"). ÍÈÊÀÊÈÕ ÃÀÐÀÍÒÈÉ ÍÅ ÏÐÈËÀÃÀÅÒÑß È ÍÅ '+
            'ÏÐÅÄÓÑÌÀÒÐÈÂÀÅÒÑß. ÂÛ ÈÑÏÎËÜÇÓÅÒÅ ÝÒÎ ÏÐÎÃÐÀÌÌÍÎÅ ÎÁÅÑÏÅ×ÅÍÈÅ ÍÀ ÑÂÎÉ '+
            'ÐÈÑÊ. ICE Graphics ÍÅ ÁÓÄÅÒ ÎÒÂÅ×ÀÒÜ ÍÈ ÇÀ ÊÀÊÈÅ ÏÎÒÅÐÈ ÈËÈ ÈÑÊÀÆÅÍÈß '+
            'ÄÀÍÍÛÕ, ËÞÁÓÞ ÓÏÓÙÅÍÍÓÞ ÂÛÃÎÄÓ Â ÏÐÎÖÅÑÑÅ ÈÑÏÎËÜÇÎÂÀÍÈß ÈËÈ '+
            'ÍÅÏÐÀÂÈËÜÍÎÃÎ ÈÑÏÎËÜÇÎÂÀÍÈß ÝÒÎÃÎ ÏÐÎÃÐÀÌÌÍÎÃÎ ÎÁÅÑÏÅ×ÅÍÈß. ';

  BtnSetTextAlignment(hBtn,40,30,balLeft);
  BtnSetFontColor(hBtn,$DAE369,$FF0000,$00FF00,$0000FF);
  BtnSetEvent(hBtn,BtnClickEventID,WrapBtnCallback(@BtnClick,1));
end;

procedure DeinitializeSetup;
begin
  KillTimer(0, TimerID);
  gdipShutdown;
end;

botva2_0.9.9 attached ( Open to see more )