Probleme lancer Windows Media Player avec Delphi

Version imprimable

Voila j'ai cette procedure qui est executée lorsque je clique sur un bouton:
Code:

1 2 3 4 5 6 7 procedure TSDIAppForm.FileOpen1Execute(Sender: TObject); begin Shellexecute(handle,nil,'C:\Program Files\Windows Media Player\wmplayer.exe','"C:\test.mp3" "C:\test2.mp3"',nil,0); end;
Probleme quelque soit le nombre de fichiers passés dans ma fonction il faut que je clique deux fois sur le bouton pour que WMPlayer se lance... Quelqu'un sait il d'ou vient le probleme ou a t'il une solution? Une autre methode pour faire cela?

Merci d'avance.

06/04/2006, 13h08
KBNOT-PRC600

Incorporer le médiaplayer dans delphi!
:)
07/04/2006, 12h26
Cut

Elle est marrante la reponse. 8O
Mais m'apporte pas grand chose. :lol:
A mon avis c'est plus compliqué et ça ne changera pas grand chose a mon probleme.
De plus je vais en dire un peu plus sur ce que l'appli doit faire. Elle lance des mp3 avec le lecteur par default de l'utilisateur (donc c'est pas forcement WMPlayer) et je donne le choix à l'utilisateur de choisir son logiciel parmis la liste enregistrée dans la base de registre de windows. Donc je vais pas surcharger mon interface avec tout plein de lecteurs. Le but c'est de lancer le logiciel choisi avec les mp3. D'ailleurs il y a qu'avec WMPlayer que ça fonctionne mal et qu'il faut cliqué deux fois sur le bouton...
07/04/2006, 16h59
[Silk]

Salut,
Tu as essayé de mettre 2 fois ta ligne shellexecute ? :P tu peux toujours tester et voir ce que sa fait...

Essaye de mettre de quotes " dans tes paramètres :

Code:

1
2
3
4
5
6
7
 
ShellExecute(Handle, // handle
               'OPEN',
               '"C:\Program Files\Windows Media Player\wmplayer.exe"',
               '"D:\Mes Documents\delphi\test shellexe\Sharo.mp3"',
               nil,
               0);

13/04/2006, 09h48
Cut

Oui j'ai essayé de mettre la ligne deux fois c'est la premiere chose à laquelle j'ai pensé : sans effet. :?

J'ai essayé ta methode denokan et ce n'est pas beaucoup mieux. En fait je suis passé à la version 10 du WMPlayer et là je crois que c'est mieux et pire :lol: . En fait dès que je clique sur le bouton il me lance l'appli, mais j'ai aucun affichage. En gros il me lance mes mp3 avec WMPlayer mais il le lance juste dans les process sans afficher le programme et cela tout le temps. Si j'appuis de nouveau sur le bouton il relance depuis le debut.

HELP ME :roll:
13/04/2006, 10h34
david_chardonnet

et si tu lances directement un fichier MP3 avec shellexecute , peut etre qu'il lancera automatiquement to media player si c'est lui qui y est associé.
13/04/2006, 11h18
Lung

Le dernier paramètre ne devrait pas être SW_SHOW ?

:roll:
13/04/2006, 11h54
Cut

Merci Lung ça marche parfaitement maintenant. Vraiment sympa pour l'aide encore une preuve qu'on peut toujours compter sur les membres de developpez :D .

En esperant devenir un membre un peu plus actif :) .