#include <GUIConstants.au3>
#include <WindowsConstants.au3>
#NoTrayIcon
Global $file
$Gui = GUICreate("Player", 340, 100, -1, -1, -1, $WS_EX_ACCEPTFILES)
$CatchDrop = GUICtrlCreateLabel("", -1, -1, 340, 100)
GUICtrlSetState(-1, $GUI_DISABLE + $GUI_DROPACCEPTED)
GUISetIcon(@SystemDir&"\wmploc.dll", 0)
GUICtrlCreateLabel("используйте drag-and-drop", 10, 5, 200, 18, -1)
$LabNameSize = GUICtrlCreateLabel("Это значит кинь сюда файл", 10, 20, 270, 18)
$open = GUICtrlCreateButton("Open", 10, 50, 40, 25)
$play = GUICtrlCreateButton("Play", 60, 50, 40, 25)
GUICtrlSetTip(-1, "Воспроизвести сначала")
$slider = GUICtrlCreateSlider(290, 0, 30, 100, 0x0002)
GUICtrlSetLimit($slider, 100, 0)
GUISetState(@SW_SHOW, $Gui)
While 1
$msg = GUIGetMsg()
SoundSetWaveVolume(100-GUICtrlRead($slider))
Sleep(10)
Switch $msg
Case $open
$file = FileOpenDialog("Выберите файл", "", "Медиафайлы (*.mp3)", 1)
If @error = 0 Then
_pl()
EndIf
Case $play
If Not $file = "" Then
SoundPlay($file, 0)
Else
MsgBox(64, "Выгодное предложение", "Не желаете открыть файл?")
EndIf
Case $GUI_EVENT_DROPPED
$file=@GUI_DRAGFILE
_pl()
Case $Gui_Event_Close
ExitLoop
EndSwitch
WEnd
; было так:
;Case $slider
;While 1
;SoundSetWaveVolume(100-GUICtrlRead($slider))
;Sleep(10)
;WEnd
Func _pl()
$namefiles=StringRegExp($file, "(^.*)\\(.*)$", 3)
GUICtrlSetData($LabNameSize, $namefiles[1]&' ('&Ceiling (FileGetSize ( $file )/1048576)&' Мб)')
SoundPlay($file, 0)
EndFunc |
