[Inno Setup] pop-up screen, background music, tag URL, four-in-one

[Setup]
Appname = fktemps2.1 (Tutorial)
Appvername = fktemps ver 2.1 (Tutorial)
Apppublisher = fktemps (Tutorial)

Appversion = 2.1
Defaultdirname = C:/program files/fktemps
Defaultgroupname = fktemps2.1 (Tutorial)
; Install the output directory (under the output of the default. ISS file)
; Outputdir = F :/
; Installer name
Outputbasefilename = test
Setupiconfile =/y/setup. ICO
Uninstalliconfile =/y/uninst. ICO
Licensefile =/y/software use license agreement. txt
Infobeforefile =/y/example description .txt
Allownoicons = true
Compression = lzma/ultra
Solidcompression = true
;-------------------------------
Createuninstallregkey = true
Uninstallable = true
;--------------------------------------
Wizardimagefile = F:/y/wizmodernimage.bmp
Wizardsmallimagefile = F:/y/wizmodernsmallimage.bmp
Versioninfoversion = 20
Versioninfocompany = www.fk68.net
Versioninfodescription = fktemps2.1 (Tutorial)
Internalcompresslevel = ultra
Enabledirdoesntexistwarning = false
Allowrootdirectory = true
Showemediagedialog = Yes
Windowvisible = false
Wizardimagebackcolor = clgreen
Versioninfocopyright = feikeworld
Apppublisherurl = http://www.fk68.net

[Tasks]
Name: Creating topicon; Description: Create a desktop shortcut (& D); groupdescription: Add a shortcut
Name: quicklaunchicon; Description: create quick run bar shortcut (& L); groupdescription: Add shortcut; ages:; flags: unchecked

[Ages]
Name: Chi; messagesfile: Compiler: Default. isl

[Files]
The following two files are not copied to the user system:
Source: "D:/installation test/*"; destdir: "{TMP}"; flags: ignoreversion recursesubdirs createallsubdirs
; ------------- [Temporary pop-up screen images and music files] -------------
The following two files are not copied to the user system:
Source: "D:/installation test/splash.bmp"; destdir: "{TMP}"; flags: dontcopy
Source: "D:/installation test/dream. Mid"; destdir: "{TMP}"; flags: dontcopy
; ------------- Temporary pop-up screen images and music files] -------------

[INI]
Filename: {app}/Access us. url; Section: internetshortcut; key: URL; string: http://www.fk68.net

[Icons]
Name: {group}/fktemps2.1 (Tutorial); filename: {app}/fktemps2.1().exe .exe
Name: {group}/Description document; filename: {app}/Description document .txt
Name: {group}/visit the home page; filename: {app}/visit our. url
Name: {userdesktop}/fktemps2.1 (Tutorial); filename: {app}/fktemps2.1()).exe .exe; tasks: desktopicon
Name: {group} // uninstall fktemps2.1 (Tutorial); filename: {uninstallexe}; iconfilename: {app}/uninstsysini.exe; iconindex: 0

; [Icons]
; This optional segment defines all shortcuts created in the Start menu and/or other locations (such as the desktop.
; Name: "{group}/Database Service Manager"; filename: "{app}/bin/fbcontrol.exe"
; Name: "{group}/uninstall database server"; filename: "{app}/unins000.exe"

[Uninstalldelete]
Type: files; Name: {app}/visit our. url
Name: {app}/fkboot/*; Type: filesandordirs

[Run]
Filename: {app}/fktemps2.1( ).exe; Description: Run fktemps2.1 (Tutorial); flags: Nowait postinstall skipifsilent

[Messages]
Beveledlabel = http://www.fk68.net

[Code]
Procedure aboutbuttononclick (Sender: tobject); // actions generated when a key is pressed
Begin // dialog box #13 is the carriage return character
Msgbox (#13 'feikeworld' #13 'feikeq' #13 #13 'copyright ownership (c) http://www.fk68.net', mbinformation, mb_ OK );
End;

Procedure urllabelonclick (Sender: tobject); // actions generated when the URL key is pressed
VaR
Errorcode: integer;
Begin // call the running program
Shellexec ('open', 'HTTP: // www.fk68.net ', '','', sw_shownormal, ewnowait, errorcode );
End;

// -------------- [Here is the definition of Music (. Mid )-------------
Function mcisendstring (lpszcommand: string; lpszreturnstring: integer; cchreturnlength: integer; hwndcallback: integer): integer;
External 'mcisendstringa @ winmm. dll stdcall ';
// -------------- Here is the definition of Music (. Mid)] -------------

Procedure initializewizard ();
VaR
Aboutbutton, cancelbutton: tbutton;
Urllabel: tnewstatictext; // URL creation button
// ------------- [Here is the definition of the pop-up screen ----------------
Splashimage: tbitmapimage;
Splashform: tform;
Splashfilename: string;
I: integer;
Urllabel: tnewstatictext;
Cancelbutton: tbutton;
// ------------- The definition of the pop-up screen] ----------------
Begin
// Form text color ------------------------------------------
Wizardform. pagenamelabel. Font. Color: = clred;
Wizardform. pagedescriptionlabel. Font. Color: = clblue;
Wizardform. welcomelabel1.font. Color: = clgreen;
Wizardform. welcomelabel2.font. Color: = clolive;

// ---------- [Here is the music loading ----------
Extracttemporaryfile (extractfilename (expandconstant ('{TMP}/dream. Mid ')));
Mcisendstring (expandconstant ('play {TMP}/dream. Mid '), 0, 0 );
// ---------- Here is the music loading] ----------

// --------------------[This is the flashlight code block (.bmp )-----------------------
Splashfilename: = expandconstant ('{TMP}/splash.bmp ');
Extracttemporaryfile (extractfilename (splashfilename ));
 
Splashform: = tform. Create (NiL );
With splashform do
Begin
Borderstyle: = bsnone;
Position: = poscreencenter;
// ------- Width and height --------
Clientwidth: = 309;
Clientheight: = 379;
// -------- Custom ------
End;

Splashimage: = tbitmapimage. Create (splashform );
With splashimage do
Begin
Bitmap. loadfromfile (splashfilename );
Stretch: = true;
Align: = alclient;
Parent: = splashform;
End;

With splashform do
Begin
Show;
// -------- Stay time from 1 to 5 every stay 1 second = stay 5 seconds ---------
For I: = 1 to 3 do
Begin
Repaint;
Sleep (1000 );
End;
Close;
Free;
End;

// --------------------This is the flashing code block (.bmp)] -----------------------
 
{Other custom controls}
// Add a button -----------------------------------------------------------------------
Cancelbutton: = wizardform. cancelbutton;

Aboutbutton: = tbutton. Create (wizardform );
Aboutbutton. Left: = wizardform. clientwidth-cancelbutton. Left-cancelbutton. width;
Aboutbutton. Top: = cancelbutton. Top-0; // The position on the form
// Twist width/height
Aboutbutton. Width: = scalex (60 );
Aboutbutton. Height: = scaley (22 );

Aboutbutton. Caption: = 'author (& A) '; // click the title
Aboutbutton. onclick: = @ aboutbuttononclick; // event Activation
Aboutbutton. Parent: = wizardform;

// Add a Labe label -----------------------------------------------------------------------
Urllabel: = tnewstatictext. Create (wizardform );
Urllabel. Caption: = 'visit our website ';
Urllabel. cursor: = crhand;
Urllabel. onclick: = @ urllabelonclick;
Urllabel. Parent: = wizardform;
{Alter font * after * setting parent so the correct defaults are inherited first}
Urllabel. Font. Style: = urllabel. Font. Style + [fsunderline];
Urllabel. Font. Color: = clblue;
Urllabel. Top: = aboutbutton. Top + aboutbutton. Height-urllabel. Height-2;
Urllabel. Left: = aboutbutton. Left + aboutbutton. Width + scalex (20 );
End;
[Uninstallrun]
Filename: {app}/uninstsysini.exe
To clear the INI file.