Object + gui

[nend]

Global $oMediaplayer

_Startobject()

$oMediaplayer.URL = "http://www.garnierstreamingmedia.com/asx/streamerswitch.asp?stream=205"
$oMediaplayer.controls.play()

GUICreate("test")
GUICtrlCreateObj($oMediaplayer, 10, 10, 300, 300)
$oMediaplayer.UImode = "none"
GUISetState(@SW_SHOW)

while 1
    $msg = GUIGetMsg()
    If $msg = -3 Then
        GUIDelete()
    EndIf

    Sleep(20)
WEnd

Func _Startobject()
    $oMediaplayer = ObjCreate("WMPlayer.OCX.7")
    If Not IsObj($oMediaplayer) Then
        MsgBox(8192, "test", "quit!")
        Exit
    EndIf
    $oMediaplayer.Enabled = True
    $oMediaplayer.WindowlessVideo = false
    $oMediaplayer.UImode = "none"
    $oMediaplayer.enableContextMenu = False
    $oMediaPlayControl = $oMediaplayer.Controls
    $oMediaPlaySettings = $oMediaplayer.Settings
    $oMediaPlaySettings.Volume = 100
EndFunc

This is a peace of code from a much larger project.

The problem that when I delete the gui my object stops as well.

Is there a way to use these object and start GUICtrlCreateObj and then delete the window whitout stopping the mediaplayer object?

In this project I can't use the option "GUISetState(@SW_HIDE, $fullscreengui)"

Edited November 2, 2009 by nend