|
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
|