[MKN]

Как то скучно в теме перед Новым Годом... Для разнообразия :
Попался код для проигрывания видео в процессе установки, на заднем FullScreen фоне. Видеофайл должен быть WMV формата.
http://www.mediafire.com/?jie4ce7ixjn4ez0
Интересно, каким образом изменить код, чтобы можно было проигрывать AVI и как бы организовать проигрывание в отдельном задаваемом окне на кастомной странице ?

Код:

OutFile WMV_Play.exe
Name WMV_Play

BGGradient 100010 100010 notext
XPStyle on

Function .onGUIInit
        SetPluginUnload alwaysoff
        FindWindow $0 "_Nb"
        System::Call "winmm::mciSendStringA(t 'open $\"$EXEDIR\video.wmv$\" alias vvv parent $0 style child', i 0, i 0, i 0)"
        System::Alloc 16
        Pop $1
        System::Call "user32::GetWindowRect(i $0, 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)"
FunctionEnd

Function .onGUIEnd
        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