sFichierWLS  est une chaîne
sIdentifiant est une chaîne = ArbreRécupèreIdentifiant(MoiMême, ArbreSelect(MoiMême))

SELON sIdentifiant
	CAS "SELECTION_EN_COURS"
		// Ouvre le sélecteur de fichier
		sFichier est une chaîne = fSélecteur("", "", "Sélectionnez un fichier...", "Tous fichiers (*.*)"+TAB+"*.*"+RC+"Vidéos MPEG (*.MPG; *.MPEG)"+TAB+".MP*G"+RC+"Vidéos AVI (*.AVI)"+TAB+"*.AVI"+RC+"Vidéos DivX (*.divx)"+TAB+".DIVX"+RC+"Vidéos Windows Media (*.WMV)"+TAB+"*.WMV"+RC+"Fichiers WAV (*.WAV)"+TAB+"*.WAV"+RC+"Fichiers Audio MPEG (*.MP3; *.MP2; *.MPA)"+TAB+"*.MP?"+RC+"Fichiers Windows Media (*.WMA)"+TAB+"*.WMA"+RC+"Listes de lecture Winamp (*.M3U)"+TAB+"*.M3U"+RC+"Listes de lecture PLS (*.PLS)"+TAB+"*.PLS"+RC+"Listes de lecture WD Multimédia (*.WLS)"+TAB+"*.WLS", "*.*", fselOuvre+fselExiste)
		SI sFichier <> "" ALORS
			MaFenêtre..ValeurRenvoyée = sFichier
			Ferme()
		FIN

	CAS "OUVRIR_SELECTION"
		// Ouvrir un fichier WLS
		sFichierWLS = fSélecteur("", "", "Sélectionnez une liste de lecture...", gsTypesListesReconnues, "WLS", fselOuvre+fselExiste)
		SI sFichierWLS <> "" ALORS
			MaFenêtre..ValeurRenvoyée = sFichierWLS
			Ferme()
		FIN

	CAS "CD_AUDIO"
		// Ouvrir le CD Audio
		
		// Si le CD est ouvert on le ferme
		MciOuvre(MciCDAudio, fnPrincipale.gsAliasCD)
		SI MciEtat(fnPrincipale.gsAliasCD) = MciEtatOuvert ALORS
			MciExécute("set " + fnPrincipale.gsAliasCD + " door closed")
		FIN
		MciArrêt(fnPrincipale.gsAliasCD)
		MciFerme(fnPrincipale.gsAliasCD)
		
		Multitache(-50)
		
		MciOuvre(MciCDAudio, fnPrincipale.gsAliasCD)
		SI MciErr() = 0
			Récupère_Pistes()
			MciArrêt(fnPrincipale.gsAliasCD)
			MciFerme(fnPrincipale.gsAliasCD)
			MaFenêtre..ValeurRenvoyée = "CD_AUDIO"
			Ferme()
		SINON
			MciArrêt(fnPrincipale.gsAliasCD)
			MciFerme(fnPrincipale.gsAliasCD)
			Erreur("Aucun CD-ROM Audio n'a été détecté.", "Vérifiez qu'un CD-ROM Audio est présent dans le lecteur.", MciMsgErr())
			MaFenêtre..ValeurRenvoyée = ""
			Ferme()
		FIN

	AUTRES CAS
		// C'est une playlist
		sFichierWLS = ExtraitChaîne(sIdentifiant, 2)
		MaFenêtre..ValeurRenvoyée = sFichierWLS
		Ferme()
FIN