MP3播放器源代码.doc

MP3播放器源代码 #Region #AutoIt3Wrapper_icon=HoneyTao.ico #AutoIt3Wrapper_Compression=4 #AutoIt3Wrapper_Res_Description=WinXP Win7 #AutoIt3Wrapper_Res_LegalCopyright=K丶Q 製作。 #AutoIt3Wrapper_Res_Field=产品版本| #AutoIt3Wrapper_Res_Field=产品名称|PeachPlayer #AutoIt3Wrapper_Res_Field=公司|K丶Q #AutoIt3Wrapper_Res_Field=内部名称|cALl Me ＫＱ。 #AutoIt3Wrapper_Res_Fileversion= #AutoIt3Wrapper_Res_Field=源文件名|PeachPlayer.exe #EndRegion #include ButtonConstants.au3 #include ComboConstants.au3 #Include GuiComboBoxEx.au3 #include GUIConstantsEx.au3 #include ProgressConstants.au3 #include StaticConstants.au3 #include WindowsConstants.au3 #include Bass.au3 #include GUIEnhance.au3 Local $ProcessList = ProcessList(@ScriptName) If $ProcessList[0][0] 1 Then MsgBox(0+16,错误,请勿多次运行本程序) Exit EndIf Global $Happy1 = @TempDir \Happy1.jpg,$Happy2 = @TempDir \Happy2.jpg,$Peach1 = @TempDir \Peach1.jpg,$Peach2 = @TempDir \Peach2.jpg,$BassDll = @ScriptDir \bass.dll,$Icon = @TempDir \HoneyTao.dll,$SkinDll = @ScriptDir \SkinCrafterDll.dll,$Skin = @ScriptDir \Style.skf,$Dll,$MusicHandle,$Pic FileInstall(Happy1.jpg,$Happy1,1) FileInstall(Happy2.jpg,$Happy2,1) FileInstall(Peach1.jpg,$Peach1,1) FileInstall(Peach2.jpg,$Peach2,1) FileInstall(HoneyTao.dll,$Icon,1) _BASS_Startup(bass.dll) _BASS_Init(0, -1, 44100, 0, ) If @error Then Exit $Gui = GUICreate(, 500, 395, -1, -1) _SkinGUI($SkinDll,$Skin,$Gui) $Pic = GUICtrlCreatePic(, 0, 0, 500, 331) If @MON @MDAY = 1201 Then GUICtrlSetImage($Pic,$Happy1) Else GUICtrlSetImage($Pic,$Peach1) EndIf $Combo = GUICtrlCreateCombo(, 10, 340, 276, 25) _GUICtrlComboBox_SetDroppedWidth($Combo, 495) File(@ScriptDir) $Progress = GUICtrlCreateProgress(10, 366, 276, 20) $Stop = GUICtrlCreateIcon($Icon, 2, 295, 340, 48, 48) GUICtrlSetTip(-1,停止) GUICtrlSetCursor (-1, 0) $First = GUICtrlCreateIcon($Icon, 3, 345, 340, 48, 48) GUICtrlSetTip(-1,上一张图片) GUICtrlSetCursor (-1, 0) $Play = GUICtrlCreateIcon($Icon, 1, 395, 340, 48, 48) GUICtrlSetTip(-1,播放) GUICtrlSetCursor (-1, 0) $Second = GUICtr