Blackbox Inno Setup Script

[kr0m]

I'm testing this inno script, change as describe on first step, compile with success but when I execute the setup, forms and text are mess up and I dint change nothing there.
Please, some one now what's happening.

[y_thelastknight]

Black_Box_Script_By_Kurutucu_V1.8 Based on Black_Box_Script_By_Kurutucu_V1.4_Unicode By Razor12911

Changes
-Changed music button position for better place
-Added Logo+URL.
-Added Unlimited Picture Slideshow
-Added Video Background
-Added Compact Mode
-Added Task Progressbar
-Fixed Bug in Task Installation

Put your video file in the same directory where is main.iss
Support Mp4, avi, mpg, or wmv


For Internal Compression Change this to

;#define Internal "C:\Program Files\Fileforums\Blackbox Inno Setup Script\"

This

#define Internal "yourgameinstallationpath\"

Thank to Razor12911 for The Help

[Kurutucu]

@y_thelastknight

It's my work. but you change logo with your name. Reported.

[y_thelastknight]

Originally Posted by Kurutucu

@y_thelastknight

It's my work. but you change logo with your name. Reported.

lol..only logo dude..i just improve ur script (i dont want any credit)
there is a psd file in psd folder..it has a gradient like that so everybody can change it..
it just a example no body is going to use my logo or your logo..that is the real fact

i will Reupload.

[sentinelks]

error:
isdoneprogressbar1.Position:=isdoneprogressbar1.Po sition + 10;


better precompile scripts or someone you can not go wrong

[pakrat2k2]

which script are you using ??

just changing line in script ( to match installed game dir is fine ) BUT
you also must make changes in setup.ini to match game information.

[Kurutucu]

@y_thelastknight

I say to you 2 times. When you editing this script send me with message. Then I will test and share in main post. Sorry but you don't understand this.

[y_thelastknight]

Originally Posted by Kurutucu

@y_thelastknight

I say to you 2 times. When you editing this script send me with message. Then I will test and share in main post. Sorry but kids don't understand this.

sorry dude my mistake..:/

[Kurutucu]

@y_thelastknight

I'm testing v1.8. When test finished I will upload and add your name in credit. However, good job. Thanks.

[sentinelks]

#ifexist "Video.avi"
ExtractTemporaryFile('Video.avi');
#endif
#ifexist "Video.mp4"
ExtractTemporaryFile('Video.MP4');
#endif
#ifexist "Video.mpeg"
ExtractTemporaryFile('Video.mpeg');
#endif
#ifexist "Video.mpg"
ExtractTemporaryFile('Video.mpg');
#endif
#ifexist "Video.wmv"
ExtractTemporaryFile('Video.wmv');
#endif
#ifexist "Video.wmv"
ExtractTemporaryFile('Video.wmv');
#endif
#ifexist "Video.swf"
ExtractTemporaryFile('Video.swf');
#endif

procedure ISFlash_init(Handle:HWND; Ffile: PAnsiChar); external 'isflash_init@files:ISFlash.dll stdcall';
procedure ISFlash_free; external 'isflash_free@files:ISFlash.dll stdcall';

procedure InitializeWizard();
var
FlashPanel: TPanel;
begin
RedesignWizardForm;
FlashPanel := TPanel.Create(WizardForm);
FlashPanel.Parent := WizardForm;
FlashPanel.Top := WizardForm.OuterNotebook.Height + 1;
FlashPanel.Left := -xxx;
FlashPanel.Height := xxx;
FlashPanel.Width := xxx;
ExtractTemporaryFile('video.swf')

ISFlash_init(FlashPanel.Handle, ExpandConstant('{tmp}\video.swf'));
end;

procedure DeinitializeSetup();
begin
ISFlash_free;
end;

also swf file very useful

[Kurutucu]

@sentinelks

I'm testing now. I will upload fixed v1.8.

[y_thelastknight]

Originally Posted by Kurutucu

@sentinelks

I'm testing now. I will upload fixed v1.8.

there is nothing to fix i think

error:
isdoneprogressbar1.Position:=isdoneprogressbar1.Po sition + 10;

what was the error? Po sition??

[pakrat2k2]

Originally Posted by Kurutucu

I'm testing now. I will upload fixed v1.8.

update post #1 with the updated, complete 'fixed' version 1.8 ?
you posted some other errors in inno troubleshoot thread .. ??

[Kurutucu]

@pakrat2k2

I will upload. Changed some Instructions

[Kurutucu]

@y_thelastknight

if isdoneprogressbar1.Position = 100 then
  isdoneprogressbar1.Position:=0
  isdoneprogressbar1.Position:=isdoneprogressbar1.Position + 10;
  if WizardForm.ProgressGauge.Position = 100 then
  WizardForm.ProgressGauge.Position:=0
  WizardForm.ProgressGauge.Position:=WizardForm.ProgressGauge.Position + 10;

to

if isdoneprogressbar1.Position = 100 then
  isdoneprogressbar1.Position:=0;
  isdoneprogressbar1.Position:=isdoneprogressbar1.Position + 10;
  if WizardForm.ProgressGauge.Position = 100 then
  WizardForm.ProgressGauge.Position:=0;
  WizardForm.ProgressGauge.Position:=WizardForm.ProgressGauge.Position + 10;

And splash not work.