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