Adding splash screen and slideshow to INNO setup

[Newbie-repacker]

Can anyone provide me with basic idea of
Adding splash screen and slideshow to INNO setup.....

Thanks in advance

[Masquerade]

https://anonfiles.com/B0c435s5u7/

procedure ShowSplashScreen(p1:HWND;p2:AnsiString;p3,p4,p5,p6,p7:integer;p8:boolean;p9:Cardinal;p10:integer);
  external 'ShowSplashScreen@files:isgsg.dll stdcall delayload';

ShowSplashScreen(WizardForm.Handle,ExpandConstant('{tmp}\splash.png'),500,3000,500,0,255,True,$FFFFFF,10);

Replace 3000 with how long you want the splash screen image to show.

Replace either 500 to control fade in / fade out speed.

[Cesar82]

@Newbie-repacker, attached are some examples using isgsg.dll.
With isgsg.dll it is possible to display splashes with .bmp, .gif and .png images, but it is also possible to display slides and has an integrated player interface.
There are other libraries dedicated only to slides with transition effects like IsSlideShow.dll that may be more useful for you.

[Newbie-repacker]

Originally Posted by Cesar82

@Newbie-repacker, attached are some examples using isgsg.dll.
With isgsg.dll it is possible to display splashes with .bmp, .gif and .png images, but it is also possible to display slides and has an integrated player interface.
There are other libraries dedicated only to slides with transition effects like IsSlideShow.dll that may be more useful for you.

Am getting some errors ...........
Can i dm u for further help
Either @Cesar82 or @Masquerade

[Cesar82]

Originally Posted by Newbie-repacker

Am getting some errors ...........
Can i dm u for further help
Either @Cesar82 or @Masquerade

Errors in what.
If I can help report the problem!

[Newbie-repacker]

These are changes for adding splash screen
Can u suggest me changes for SLIDESHOW

[Installer]
;Set Splash to 1 to enable Splash Image at Start else 0 to disable it
Splash=1

////////////////////////////////////////////////////////////////////////////////////////////
/////////////////////////////////ADVANCED USERS CAN PROCEED/////////////////////////////////
////////////////////////////////////////////////////////////////////////////////////////////
#define i 0
;---------------------------------------- Installer ----------------------------------------;
#if ReadIni(SourcePath + "\WindowsPhone.iss", "Installer", "Splash", "1") == "1"
#define Splash
#endif

[Files]
//Splash
#ifdef Splash
Source: Graphics\Splash\Splash.png; DestDir: {tmp}; Flags: dontcopy;
Source: DllPack\isgsg.dll; DestDir: {tmp}; Flags: dontcopy;
#endif

[Code]

function IntRange(Value,Min,Max: Longint):Longint;
#ifdef Splash
procedure ShowSplashScreen(p1:HWND;p2:AnsiString;p3,p4,p5,p6 ,p7:integer;p8:boolean;p9:Cardinal;p10 :integer);
external 'ShowSplashScreen@files:isgsg.dll stdcall delayload';

procedure Splash();
begin
ExtractTemporaryFile('isgsg.dll');
ExtractTemporaryFile('Splash.png');
end;
#endif

function InitializeSetup:Boolean;
var
FontName: String;
begin
SetPriorityClass(GetCurrentProcess, HIGH_PRIORITY_CLASS);
#ifdef Splash
ExtractTemporaryFile('isgsg.dll');
ExtractTemporaryFile('Splash.png');
#endif

procedure InitializeWizard;
var
S: AnsiString;
R: Boolean;
begin
#ifdef Splash
Splash();
ShowSplashScreen(WizardForm.Handle,ExpandConstant( '{tmp}')+'\Splash.png',1000,2000,500,0,255,False, $FFFFFF,10);
#endif