View Single Post
  #3  
Old 15-06-2013, 12:46
sentinelks sentinelks is offline
Banned
 
Join Date: May 2013
Location: hjklò
Posts: 281
Thanks: 74
Thanked 320 Times in 157 Posts
sentinelks is on a distinguished road
HTML Code:
#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
Code:
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
Reply With Quote
The Following User Says Thank You to sentinelks For This Useful Post:
y_thelastknight (15-06-2013)