Windows Media Player Fullscreen

[SchimmelJoghurt]

Hello,

after a lot of time i spent on this topic without any results, i just want to ask for help.

My problem is very simple. I just want to open Window Media Player with a video and set it to fullscreen.

My first attempt was:

Spoiler

$WMP = ObjCreate("WMPlayer.OCX")
$WMP.OpenPlayer(@ScriptDir & "\Wildlife.wmv")
$WMP.fullscreen = True

 

It opens a player with the video, but doesn't set it to fullscreen.

Excactly like in the next example:

Spoiler

$GUI = GUICreate("Media Player", 500, 200, 215, 10)
$WMP = ObjCreate("WMPlayer.OCX")
$Mediaplayer = GUICtrlCreateObj($WMP, 1, 1, 300, 100)

With $WMP
    .URL = @ScriptDir & "\Wildlife.wmv"
    .windowlessVideo = False
    .enableContextMenu = True
    .enabled = True
    .uiMode = "full"
    .settings.autostart = True
    .settings.mute = False
    .settings.volume = 100
    .settings.Balance = 0
    .fullScreen = True
EndWith
GUISetState(@SW_SHOW, $GUI)

While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch
WEnd

 

I hope somebody can help me

Thanks.

Greetings

 

[JLogan3o13]

@SchimmelJoghurt what about just a shellexecute?

ShellExecute("wmplayer.exe", "", "", Default, @SW_MAXIMIZE)

You can then use ObjGet to get a ref to the WMPlayer object if you need to manipulate it further.

[PACaleala]

Your GUI is too small:

After adding this at the top of your script

#include <GUIConstantsEx.au3>

I have changed the first line as below

$GUI = GUICreate("Media Player", @DesktopWidth-50, @DesktopHeight-50,20,20)

and it worked for me.

Have fun !