Blackbox Inno Setup Script

[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