Amigos
Como se reproduce un archivo con extension swf en FW
Gracias por su ayuda
//--------------------------------------------------------------
Function Acercade()
Define Dialog Acercade resource "acercade" TITLE "Acerca de..."
Acercade:lHelpIcon:=.F.
REDEFINE ACTIVEX oActiveX ;
ID 101 ;
PROGID "ShockwaveFlash.ShockwaveFlash.1" ;
OF AcercaDe
AcercaDe:bStart := { || DoXInProcs( oActiveX ) }
ACTIVATE DIALOG Acercade CENTER
oActivex:Do("STOP")
oActivex:End()
Return Nil
//--------------------------------------------------------------
Static Function DoXInProcs( oActiveX )
LOCAL cPthFlsh := CurDrive() + ":\" + Curdir() + "\acercade.SWF"
oActivex:Do( "LoadMovie", 0, cPthFlsh )
oActivex:Do( "Play" )
Return NIL
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: No registered users and 37 guests