Blackbox Inno Setup Script

[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