Jump to content
Sign in to follow this  
playlet

---

Recommended Posts

playlet

---

Edited by playlet

Share this post


Link to post
Share on other sites
taietel

Give it a try:

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <WinAPI.au3>

$obj = ObjCreate("ShockwaveFlash.ShockwaveFlash")
$GUI = GUICreate("Test", 160, 160)
GUICtrlCreatePic("bg.bmp", 0, 0, 160, 160)
GUICtrlSetState(-1,128)
$GUI2 = GUICreate("", 160, 160, 0, 0, $WS_POPUP, $WS_EX_MDICHILD+$WS_EX_LAYERED, $GUI)
GUISetBkColor(0x222211)
$ActiveX = GUICtrlCreateObj( $obj, 40, 40, 80, 80)
_WinAPI_SetLayeredWindowAttributes($GUI2,0x222211,100,0x01)
With $obj
    .bgcolor = "#222211"
    .Movie = @ScriptDir & "file.swf"
.Quality = 1
    .ScaleMode = 2
    .Loop = True
    .wmode = "transparent"
EndWith
GUISetState(@SW_SHOW, $GUI)
GUISetState (@SW_SHOW, $GUI2)

While 1
    If GUIGetMsg() = -3 Then
        $obj = 0
        GUIDelete()
        Exit
    EndIf
WEnd

Share this post


Link to post
Share on other sites
playlet

---

Edited by playlet

Share this post


Link to post
Share on other sites
playlet

---

Edited by playlet

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×