Blackbox Inno Setup Script

[Kurutucu]

@y_thelastknight

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

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

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

[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

[y_thelastknight]

Originally Posted by Kurutucu

And splash not work.

oh yeah
find this line

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

and change string into AnsiString
simple but forget to change

[Kurutucu]

@y_thelastknight

Your edited script need fixes.

1. Slideshow seen only 1.jpg and 2.jpg.

2. Setup giving this error with no setup-1.bin.



Here fixed some bugs. But you need to fix 1 and 2. When you fixed send me with message.

[y_thelastknight]

01. there is no 3.jpg in the slide folder

will chk the error 02

[Kurutucu]

Look at Slides folder. There is 1-8.jpg.

[sentinelks]

just create a small file data1.bin 1mb and place it in the directory where it will load and the problem is solved ...
and give the extraction directory in [source]
not having a file compress.bat is + very fluid to try that code

[Kurutucu]

@sentinelks

Then run uninstall. You can give this error again.

[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

[pakrat2k2]

thanks for keeping updated

[Kurutucu]

Update 1.8

-Added 4 version [Main.iss, Main(precomp.0.43).iss, Main(Compact.Mode).iss, Main(Compact.Mode-precomp.0.43).iss]

-Added original Blackbox Logo font.

-Fixed buttons.

-Fixed font colors.

-Added compact mode.

-Fixed finish page.

-Fixed Kurutucu Compressor.

-Added Framework redist.

-Skin change fixed. You can change with any skin.

-Disabled Nvidia Physx Checkbox. But you can enable it.

-Other checkboxs selected automatic.

-Watch Dogs Original Soundtrack added.