Code : Tout sélectionner
Local $IsTopMost = 0
If IniRead(@ScriptDir & "\Paramètres.ini", "Fenêtre", "Top", 0) = 'True' Then
$IsTopMost = $WS_EX_TOPMOST
EndIf
$Form1_1 = GUICreate("LMFAO - Player", 311, 351, 698, 113, BitOR($GUI_SS_DEFAULT_GUI, $DS_CONTEXTHELP), BitOR($WS_EX_APPWINDOW, $WS_EX_CONTEXTHELP, $IsTopMost, $WS_EX_WINDOWEDGE))
$MenuItem1 = GUICtrlCreateMenu("&Option")
$MenuItem2 = GUICtrlCreateMenuItem("Changer de musique", $MenuItem1)
$MenuItem4 = GUICtrlCreateMenuItem("Aide", $MenuItem1)
$Pic1 = GUICtrlCreatePic("", 8, 8, 169, 153)
GUICtrlSetImage(-1, @ScriptDir & "/AlbumArt.jpg")
$Label1 = GUICtrlCreateLabel("Titre :", 8, 200, 172, 17)
$Label2 = GUICtrlCreateLabel("Album :", 8, 168, 164, 17)
$Button1 = GUICtrlCreateButton("<", 8, 264, 41, 25)
$Button2 = GUICtrlCreateButton(">", 136, 264, 41, 25)
$Progress1 = GUICtrlCreateProgress(8, 232, 169, 17)
GUICtrlSetColor(-1, 0x008000)
$Button3 = GUICtrlCreateButton("Play", 56, 264, 73, 25)
$Button4 = GUICtrlCreateButton("Pause", 16, 296, 73, 25)
$Button5 = GUICtrlCreateButton("Stop", 104, 296, 73, 25)
$List1 = GUICtrlCreateList("", 184, 32, 121, 227)
GUICtrlSetData(-1, "")
$Label3 = GUICtrlCreateLabel("Liste de lecture :", 184, 8, 118, 22)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
$Ecouter = GUICtrlCreateButton("Ecouter", 200, 264, 97, 17)
$Suppr = GUICtrlCreateButton("Supprimer", 200, 288, 97, 17)
$Renommer = GUICtrlCreateButton("Renommer", 200, 312, 97, 17)
$Slider1 = GUICtrlCreateSlider(0, 337, 310, 17, BitOR($GUI_SS_DEFAULT_SLIDER, $TBS_NOTICKS))
GUISetState(@SW_SHOW)