Dialog Video

[pedrotairum]

Hey Gintaras,

So I read the topic you gave me but the thing is that when the Dialog opens the Video, I don't get any sound =\

This is my code:

Function Dialog3

Code:

Copy      Help

\Dialog_Editor
function# hDlg message wParam lParam
if(hDlg) goto messages

typelib ShockwaveFlashObjects {D27CDB6B-AE6D-11CF-96B8-444553540000} 1.0

if(!ShowDialog("Dialog3" &Dialog3)) ret

;BEGIN DIALOG
;0 "" 0x90C80A44 0x100 0 0 292 205 "Dialog"
;3 ActiveX 0x54030000 0x0 4 6 292 205 "ShockwaveFlashObjects.ShockwaveFlash {D27CDB6E-AE6D-11CF-96B8-444553540000}"
;END DIALOG
;DIALOG EDITOR: "" 0x2030509 "" "" "" ""

ret
;messages
sel message
,case WM_INITDIALOG
,ShockwaveFlashObjects.ShockwaveFlash sh3
,sh3._getcontrol(id(3 hDlg))
,sh3.LoadMovie(0 _s.expandpath("$desktop$\paulo.swf"))
,sh3.Play
,
,case WM_DESTROY
,case WM_COMMAND goto messages2
ret
;messages2
sel wParam
,case IDOK
,case IDCANCEL
ret 1