[K.A.V.]

Подскажите, как поместить видео в собственное окно на кастомной странице ? »

Код:

!include MUI2.nsh
Page custom MyPage 
!insertmacro MUI_PAGE_INSTFILES
!insertmacro MUI_LANGUAGE "English"
OutFile "test_video.exe"
!define WS_BORDER 0x00800000
Var dlg

Function MyPage
nsDialogs::Create 1018
Pop $dlg

System::Call 'user32::CreateWindowEx(i0,t "STATIC",t " здесь должно быть видео",\
                      i${DEFAULT_STYLES}|${WS_BORDER}|${WS_VISIBLE},\           
                      i130,i50,i200,i150,i$dlg,i222,i0,i0) i.R7'
SetCtlColors $R7 `0x0000FF` `0x99FFFF`

        System::Call "winmm::mciSendStringA(t 'open $\"$EXEDIR\video.wmv$\" alias vvv parent $R7 style child', i 0, i 0, i 0)"
        System::Alloc 16
        Pop $1
        System::Call "user32::GetWindowRect(i $R7, i $1)"
        System::Call "*$1(i.r2, i.r3, i.r4, i.r5)"
        System::Free $1
        System::Call "winmm::mciSendStringA(t 'put vvv destination $2 $3 $4 $5', i 0, i 0, i 0)"
	System::Call "winmm::mciSendStringA(t 'window vvv stretch', i 0, i 0, i 0)"
        System::Call "winmm::mciSendStringA(t 'play vvv repeat',i 0, i 0, i 0)"
 nsDialogs::Show
        System::Call "winm::mciSendStringA(t 'stop vvv',i 0, i 0, i 0)"
        System::Call "winm::mciSendStringA(t 'close vvv',i 0, i 0, i 0)"
FunctionEnd

Section
SectionEnd