AutoHotkey Community

MCI_SetVolume(OpenMCIDevice,1000) ;-- Sets the volume to max for the device
MCI_SetVolume(OpenMCIDevice,500)  ;-- Sets the volume to midway point for the device
MCI_SetVolume(OpenMCIDevice,0)    ;-- Sets the volume to 0 (mute) for the device

$^f::
IfWinNotActive, %ScriptName%
  {
Send, {^f}
   Return
}
SoundPlay, Nonexistent.
FileSelectFolder SelectedFolder, , 3, (*.*)
If SelectedFolder =
return
Else
{
   Loop %SelectedFolder%\*.*,0,1
      Soundplay %A_LoopFileFullPath%, WAIT
return
}
Return

#NoEnv
#SingleInstance Force

gui Margin,0,0
gui Add,Button,w60 h25  ,Open
gui Add,Button,x+0 wp hp,Play
gui Add,Button,x+0 wp hp,Pause
gui Add,Button,x+0 wp hp vStop,Stop
gui Add
   ,Slider
   ,x+0 w160 hp
        || +Disabled  ;-- Start off disabled
        || +ToolTip
        || vSlider
        || gSlider


Messages=Notify messages are displayed here.  New items added to the top.
gui Add
   ,Edit
   ,xm w400 h180
        || +ReadOnly
        || vMessages
   ,%Messages%

gui Show


gosub ButtonOpen
return



GUIEscape:
GUIClose:
if Open
    MCI_Close(hMedia)

ExitApp


ButtonOpen:
if Open
    {
    MCI_Close(hMedia)
    SetTimer UpdateSlider,off
    GUIControl,,Slider,0
    GUIControl Disable,Slider
    }

if not DefaultFolder
    DefaultFolder:=A_MyDocuments

FileSelectFile MediaFile,1,%DefaultFolder%,Choose a media file
if MediaFile=
   return

SplitPath MediaFile,,DefaultFolder

hMedia:=MCI_Open(MediaFile)
if not hMedia
    {
    MsgBox Error opening media file
    return
    }

Open:=true
MediaLength:=MCI_Length(hMedia)
    ;-- For this example, the length of the media file is collected once on
    ;   open.  The value is used by the Slider routines.

GUIControl Enable,Slider
SetTimer UpdateSlider,1000
gosub ButtonPlay
return



ButtonPlay:
if Open
    {
    Status:=MCI_Status(hMedia)
    if Status=Stopped
        {
        Messages:=A_Now . ": Notify set`n" . Messages
        GUIControl,,Messages,%Messages%

        MCI_Play(hMedia,"","NotifyEndOfPlay")  ;-- Notify is set here
        }
     else
        if Status=Paused
            MCI_Resume(hMedia)
    }

return



ButtonPause:
if Open
    {
    Status:=MCI_Status(hMedia)
    if Status=Playing
        MCI_Pause(hMedia)
     else
        if Status=Paused
            MCI_Resume(hMedia)

    ;-- Note: Pause and Resume do not interrupt Notify
    }

return



ButtonStop:
if Open
    {
    MCI_Stop(hMedia)
    MCI_Seek(hMedia,0)
    }

return



Slider:
if Open
    {
    Status:=MCI_Status(hMedia)
    if Status in Playing,Paused
        {
        Messages:=A_Now . ": Notify set/reset`n" . Messages
        GUIControl,,Messages,%Messages%

        MCI_Play(hMedia,"from " . floor(MediaLength*(Slider/100)),"NotifyEndOfPlay")
            ;-- MCI_Seek is not used to reposition the media in this example
            ;   because the function will cause a Notify interruption for most
            ;   devices.
            ;   
            ;   Using the "From" flag, MCI_Play will successfully reposition
            ;   the media for most MCI devices.  Calling MCI_Play (with
            ;   callback) while media is playing will abort the original Notify
            ;   condition (if any) but will create a new Notify condition.
   
        if Status=Paused
            MCI_Pause(hMedia)
        }

    ;-- Reset focus
    GUIControl Focus,Stop
    }

return



UpdateSlider:
if Open
    {
    ;-- Only update slider if object is NOT in focus
    GUIControlGet Control,FocusV
    if Control<>Slider
        GUIControl,,Slider,% (MCI_Position(hMedia)/MediaLength)*100
    }

return



NotifyEndOfPlay(Flag)
    {
    Global
    outputdebug Function: %A_ThisFunc%  flag=%flag%

    if Flag=1
        MCINotifyValue=MCI_NOTIFY_SUCCESSFUL (1)

    if Flag=2
        MCINotifyValue=MCI_NOTIFY_SUPERSEDED (2)

    if Flag=4
        MCINotifyValue=MCI_NOTIFY_ABORTED (4)

    if Flag=8
        MCINotifyValue=MCI_NOTIFY_FAILURE (8)

    Messages:=A_Now . ": " . MCINotifyValue . "`n" . Messages
    GUIControl,,Messages,%Messages%

    if Flag=1
        gosub ButtonStop

    return
    }


#include MCI.ahk

FileSelectFolder SelectedFolder, , M, (*.*)
If SelectedFolder =
return
Else

{
   Loop %SelectedFolder%\*.mp3,0,1
hMedia:=MCI_Open(a_loopfilefullpath)
if not hMedia
    {
    MsgBox Error opening media file %A_LoopFileFullPath%

    return
    }
Open:=true
MediaLength:=MCI_Length(hMedia)
    ;-- For this example, the length of the media file is collected once on
    ;   open.  The value is used by the Slider routines.
gosub Play
}
return

.
.
.
Else
    {
    Loop %SelectedFolder%\*.mp3,0,1
        {
        hMedia:=MCI_Open(a_loopfilefullpath)

        if not hMedia
            {
            MsgBox Error opening media file %A_LoopFileFullPath%
            return
            }
   
        Open:=true
        MediaLength:=MCI_Length(hMedia)
        gosub Play
        MCI_Close(hMedia)
        }
    }