Launching media files easily

[photonbuddy]

Hi All,

I have written a program I use on DVD's with movie files on it, that scans the DVD and then brings up a GUI with a button to launch each media file found.

It works fine on my system, where I have media player classic installed and set as default media player.

Tonight, however, I took one of my DVD's to a friends place who is running XP media centre (I run Win2k), and the program would not launch properly.

When clicking a button, media player would load, but would not load in the media and play it.

Currently I test for a few media types and play them thus:

Select
                Case StringRight($filename, 3) = "AVI"
                    $sType = RegRead('HKEY_Classes_Root\.avi', '')
                    If $sType <> '' Then $sCommand = RegRead('HKCR\' & $sType & '\Shell\Open\Command', '')
                    If $sCommand <> '' Then $sCommand= (StringReplace($sCommand, '"%1"','"'&$filename&'"'))
                    $mplayer = $sCommand
                Case StringRight($filename, 3) = "MPG"
                    $sType = RegRead('HKEY_Classes_Root\.mpg', '')
                    If $sType <> '' Then $sCommand = RegRead('HKCR\' & $sType & '\Shell\Open\Command', '')
                    If $sCommand <> '' Then $sCommand= (StringReplace($sCommand, '"%1"','"'&$filename&'"'))
                    $mplayer = $sCommand
                Case StringRight($filename, 3) = "WMV"
                    $sType = RegRead('HKEY_Classes_Root\.wmv', '')
                    If $sType <> '' Then $sCommand = RegRead('HKCR\' & $sType & '\Shell\Open\Command', '')
                    If $sCommand <> '' Then $sCommand= (StringReplace($sCommand, '"%1"','"'&$filename&'"'))
                    $mplayer = $sCommand
                Case StringRight($filename, 3) = "MOV"
                    $sType = RegRead('HKEY_Classes_Root\.mov', '')
                    If $sType <> '' Then $sCommand = RegRead('HKCR\' & $sType & '\Shell\Open\Command', '')
                    If $sCommand <> '' Then $sCommand= (StringReplace($sCommand, '"%1"','"'&$filename&'"'))
                    $mplayer = $sCommand
            EndSelect
            $mp = $mplayer & " "
            If GUICtrlRead($fs) = $GUI_CHECKED Then
                $mp = $mp & "/fullscreen "
            EndIf
            RunWait($mp)

(I got the basis for this code from another post here, but I can't find that post now)

What I'd really like, is a way to simply pass the filename to a function, and get back the appropriate command line from the function to run that media type.

Any ideas?

[thibeaz]

I was looking for something like this for a long time. I'll certainly will give it a try and then adapt my own version very soon

[/dev/null]

(I got the basis for this code from another post here, but I can't find that post now)

What I'd really like, is a way to simply pass the filename to a function, and get back the appropriate command line from the function to run that media type.

Any ideas?

DOS/Windows command "start" will take care to start the correct application, if the media type is "known/registered" in windows

(commands: assoc and ftype)

#include <Process.au3>
$myfile= "C:\temp\movie1.mpeg"
$rc = _RunDos("start " & '""' & $myfile) ; we need the '""', don't remove it !!

Edited January 26, 2007 by /dev/null

[Jos]

ShellExcecute()

[/dev/null]

ShellExcecute()

damn, I allways forget about that ... :">

[photonbuddy]

Thanks for the ShellExecute() option.

ShellExecute() seems to work, but it doesn't appear to pass the paramters correctly.

Specifically:

$param=""
            If GUICtrlRead($fs) = $GUI_CHECKED Then
                $param = "/fullscreen"
            EndIf
            ShellExecuteWait($filename,$mp)

Doesn't launch the program in fullscreen mode.

Mind you, I think this may be a problem with Windows, as if I use the run box and type in "<media file> /fullscreen" it doesn't work either. If I put the actual media player command in front of the media file name, it runs fine in full screen.

Any suggestions for a fix for this?