Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно
MKN MKN вне форума

Ветеран


Сообщения: 2371
Благодарности: 562

Профиль | Отправить PM | Цитировать


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

код, в котором это не получается... (видео окно рядом с кастомным) :

Код: Выделить весь код
!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', 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 at $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
тестовый комплект : http://rghost.ru/private/8RjjlkHVT/7...a877c9ac07d1af

Отправлено: 13:19, 19-03-2016 | #2011