Go Back   FileForums > Game Backup > PC Games > PC Games - CD/DVD Conversions > Conversion Tutorials
Reload this Page ISSlideShow Script Needed
Register FAQ Community Calendar Today's Posts Search

Reply
 
Thread Tools Search this Thread Display Modes
  #1  
Old 13-01-2017, 22:30
Fakhruddinmaruf_ Fakhruddinmaruf_ is offline
Registered User
  
Join Date: Jul 2016
Location: Indonesia
Posts: 37
Thanks: 12
Thanked 17 Times in 5 Posts
Fakhruddinmaruf_ is on a distinguished road
ISSlideShow Script Needed
I need ISSlideshow script to make my installer. I hope i can find it. Do you have the Script?
Reply With Quote
Sponsored Links
  #2  
Old 14-01-2017, 05:50
rinaldo's Avatar
rinaldo rinaldo is offline
Registered User
  
Join Date: Sep 2015
Location: Rome
Posts: 433
Thanks: 101
Thanked 696 Times in 191 Posts
rinaldo is on a distinguished road
Code:
#define SlideShow
#define SlideTime  "3000"

#define GameName   "ISS"

[Setup]
AppName={#GameName}
DefaultDirName={sd}\{#GameName}
DefaultGroupName={#GameName}
AppVerName={#GameName}


[Files]
#ifdef SlideShow
Source: Slides\isSlideShow.dll; DestDir: {tmp}; Flags: dontcopy
Source: Slides\*.jpg; DestDir: {tmp}; Flags: dontcopy
#endif
Source: {win}\inf\*; DestDir: {app}\Files0; Flags: external recursesubdirs createallsubdirs;

[Code ]
#ifdef SlideShow
var
TimerID: LongWord;
CurrentPicture:integer;
PicList: TStringlist;
type
TProc=procedure(HandleW, msg, idEvent, TimeSys: LongWord);
function SetTimer(hWnd, nIDEvent, uElapse, lpTimerFunc: LongWord): longword; external '[email protected] stdcall';
function KillTimer(hWnd, nIDEvent: LongWord): LongWord; external '[email protected] stdcall';
function WrapTimeCallback(Callback:TProc; NumParam:integer): longword; external 'WrapCallback@files:isslideshow.dll stdcall';
procedure InitializeSlideShow(Hwnd:Thandle; l,t,w,h:integer;Animate:boolean; Stretch:integer); external 'InitializeSlideShow@files:isslideshow.dll stdcall';
procedure DeinitializeSlideShow; external 'DeinitializeSlideShow@files:isslideshow.dll stdcall';
procedure ShowImage(ipath:PAnsiChar; Effect:integer; SpeedTransition: integer); external 'ShowImage@files:isslideshow.dll stdcall';


procedure SlideImg();
begin
PicList:=tstringlist.Create;
ExtractTemporaryFile('1.jpg');
ExtractTemporaryFile('2.jpg');
ExtractTemporaryFile('3.jpg');
ExtractTemporaryFile('4.jpg');
ExtractTemporaryFile('5.jpg');
ExtractTemporaryFile('6.jpg');
ExtractTemporaryFile('7.jpg');
ExtractTemporaryFile('8.jpg');
ExtractTemporaryFile('9.jpg');
ExtractTemporaryFile('10.jpg');
piclist.add(ExpandConstant('{tmp}') + '\1.jpg');
piclist.add(ExpandConstant('{tmp}') + '\2.jpg');
piclist.add(ExpandConstant('{tmp}') + '\3.jpg');
piclist.add(ExpandConstant('{tmp}') + '\4.jpg');
piclist.add(ExpandConstant('{tmp}') + '\5.jpg');
piclist.add(ExpandConstant('{tmp}') + '\6.jpg');
piclist.add(ExpandConstant('{tmp}') + '\7.jpg');
piclist.add(ExpandConstant('{tmp}') + '\8.jpg');
piclist.add(ExpandConstant('{tmp}') + '\9.jpg');
piclist.add(ExpandConstant('{tmp}') + '\10.jpg');
end;
#endif
procedure InitializeWizard();
begin
with WizardForm do begin
#ifdef SlideShow
SlideImg;
#endif
end;
end;

#ifdef SlideShow
procedure OnTimer(HandleW, msg, idEvent, TimeSys: LongWord);
begin
CurrentPicture:=CurrentPicture+1;
if CurrentPicture=piclist.count+1 then CurrentPicture:=1;
ShowImage(piclist.strings[CurrentPicture - 1], 2, 1000);
end;
#endif

procedure CurPageChanged(CurPageID: Integer);
begin
case CurPageID of
wpInstalling: begin
#ifdef SlideShow
InitializeSlideShow(WizardForm.Handle, 0, 0, scaleX(501), ScaleY(314), true, 2);
CurrentPicture:=1;
ShowImage(piclist.strings[CurrentPicture-1], 1, 1000);
TimerID:=SetTimer(0, 0, {#SlideTime}, WrapTimeCallback(@OnTimer, 4));
WizardForm.ProgressGauge.parent:=WizardForm;
WizardForm.ProgressGauge.setbounds(ScaleX(10), ScaleY(326), ScaleX(385), WizardForm.ProgressGauge.height);
WizardForm.CancelButton.Left:=ScaleX(405);
WizardForm.CancelButton.Top:=ScaleY(325);
#endif
end;
wpFinished: begin
#ifdef SlideShow
KillTimer(0, TimerID);
DeinitializeSlideShow;
WizardForm.ProgressGauge.visible:=false;
#endif
end;
end;
end;
__________________
if you understand read more
Last edited by rinaldo; 14-01-2017 at 06:33.
Reply With Quote
The Following 2 Users Say Thank You to rinaldo For This Useful Post:
78372 (22-03-2017), Prince4 (15-01-2017)
  #3  
Old 22-03-2017, 17:21
78372 78372 is offline
Registered User
  
Join Date: Dec 2016
Location: Bangladesh
Posts: 650
Thanks: 772
Thanked 953 Times in 309 Posts
78372 is on a distinguished road
Quote:
Originally Posted by rinaldo View Post
Code:
#define SlideShow
#define SlideTime  "3000"

#define GameName   "ISS"

[Setup]
AppName={#GameName}
DefaultDirName={sd}\{#GameName}
DefaultGroupName={#GameName}
AppVerName={#GameName}


[Files]
#ifdef SlideShow
Source: Slides\isSlideShow.dll; DestDir: {tmp}; Flags: dontcopy
Source: Slides\*.jpg; DestDir: {tmp}; Flags: dontcopy
#endif
Source: {win}\inf\*; DestDir: {app}\Files0; Flags: external recursesubdirs createallsubdirs;

[Code ]
#ifdef SlideShow
var
TimerID: LongWord;
CurrentPicture:integer;
PicList: TStringlist;
type
TProc=procedure(HandleW, msg, idEvent, TimeSys: LongWord);
function SetTimer(hWnd, nIDEvent, uElapse, lpTimerFunc: LongWord): longword; external '[email protected] stdcall';
function KillTimer(hWnd, nIDEvent: LongWord): LongWord; external '[email protected] stdcall';
function WrapTimeCallback(Callback:TProc; NumParam:integer): longword; external 'WrapCallback@files:isslideshow.dll stdcall';
procedure InitializeSlideShow(Hwnd:Thandle; l,t,w,h:integer;Animate:boolean; Stretch:integer); external 'InitializeSlideShow@files:isslideshow.dll stdcall';
procedure DeinitializeSlideShow; external 'DeinitializeSlideShow@files:isslideshow.dll stdcall';
procedure ShowImage(ipath:PAnsiChar; Effect:integer; SpeedTransition: integer); external 'ShowImage@files:isslideshow.dll stdcall';


procedure SlideImg();
begin
PicList:=tstringlist.Create;
ExtractTemporaryFile('1.jpg');
ExtractTemporaryFile('2.jpg');
ExtractTemporaryFile('3.jpg');
ExtractTemporaryFile('4.jpg');
ExtractTemporaryFile('5.jpg');
ExtractTemporaryFile('6.jpg');
ExtractTemporaryFile('7.jpg');
ExtractTemporaryFile('8.jpg');
ExtractTemporaryFile('9.jpg');
ExtractTemporaryFile('10.jpg');
piclist.add(ExpandConstant('{tmp}') + '\1.jpg');
piclist.add(ExpandConstant('{tmp}') + '\2.jpg');
piclist.add(ExpandConstant('{tmp}') + '\3.jpg');
piclist.add(ExpandConstant('{tmp}') + '\4.jpg');
piclist.add(ExpandConstant('{tmp}') + '\5.jpg');
piclist.add(ExpandConstant('{tmp}') + '\6.jpg');
piclist.add(ExpandConstant('{tmp}') + '\7.jpg');
piclist.add(ExpandConstant('{tmp}') + '\8.jpg');
piclist.add(ExpandConstant('{tmp}') + '\9.jpg');
piclist.add(ExpandConstant('{tmp}') + '\10.jpg');
end;
#endif
procedure InitializeWizard();
begin
with WizardForm do begin
#ifdef SlideShow
SlideImg;
#endif
end;
end;

#ifdef SlideShow
procedure OnTimer(HandleW, msg, idEvent, TimeSys: LongWord);
begin
CurrentPicture:=CurrentPicture+1;
if CurrentPicture=piclist.count+1 then CurrentPicture:=1;
ShowImage(piclist.strings[CurrentPicture - 1], 2, 1000);
end;
#endif

procedure CurPageChanged(CurPageID: Integer);
begin
case CurPageID of
wpInstalling: begin
#ifdef SlideShow
InitializeSlideShow(WizardForm.Handle, 0, 0, scaleX(501), ScaleY(314), true, 2);
CurrentPicture:=1;
ShowImage(piclist.strings[CurrentPicture-1], 1, 1000);
TimerID:=SetTimer(0, 0, {#SlideTime}, WrapTimeCallback(@OnTimer, 4));
WizardForm.ProgressGauge.parent:=WizardForm;
WizardForm.ProgressGauge.setbounds(ScaleX(10), ScaleY(326), ScaleX(385), WizardForm.ProgressGauge.height);
WizardForm.CancelButton.Left:=ScaleX(405);
WizardForm.CancelButton.Top:=ScaleY(325);
#endif
end;
wpFinished: begin
#ifdef SlideShow
KillTimer(0, TimerID);
DeinitializeSlideShow;
WizardForm.ProgressGauge.visible:=false;
#endif
end;
end;
end;
Can you upload the dll with example here?
__________________
NOT AVAILABLE
Reply With Quote
  #4  
Old 22-03-2017, 20:21
ffmla ffmla is offline
Registered User
  
Join Date: Nov 2014
Location: Digital world
Posts: 112
Thanks: 609
Thanked 65 Times in 41 Posts
ffmla is on a distinguished road
Talking isSlideshow
Quote:
Originally Posted by 78372 View Post
Can you upload the dll with example here?
Download the attachment in the link,,
Learn the basics with some examples,or use the rinaldo"s one.

http://fileforums.com/attachment.php...3&d=1424533444
Reply With Quote
The Following User Says Thank You to ffmla For This Useful Post:
78372 (22-03-2017)
Reply

« Previous Thread | Next Thread »

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts
BB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
Blackbox Inno Setup Script Kurutucu Conversion Tutorials 1190 18-08-2019 22:43
ISDone script needed 78372 Conversion Tutorials 6 10-01-2017 05:13
Please HELP.. THETA Script ATL4NTYS Conversion Tutorials 6 14-08-2016 14:43
Needed Classified Ad Script jakab Software 2 09-02-2009 02:43



All times are GMT -7. The time now is 18:17.

FileForums - Archive - Privacy Statement - Top

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2026, vBulletin Solutions Inc.
FileForums @ https://fileforums.com