Lire un fichier wav rapidementRésolu

Question

Salut à tous,

Il est possible de lire un fichier wav via la commande shellexecute. Cependant il faut le temps que le média player se charge. Il y a t'il un moyen pour déclencher média player et ensuite lui faire jouer plusieurs morceaux à répétition en utilisant le média player déjà ouvert ??

Merci

Cirec · Accepted Answer

Salut,
pourquoi ne pas utiliser Delphi directement pour lire le Wav avec PlaySound :

        PlaySound(Pchar(WavName), 0, SND_ASYNC Or SND_FILENAME);

@+
Cirec

Cirec · Answer

ps : si non oui c'est possible avec ShellExecute

@+
Cirec

Francky23012301 · Answer

Je vais utiliser Playsound Cirec mais pour ne pas mourir idio, pourrait tu me dire commment tu ferais avec shellexecute pour ouvrir media player et ensuite l'utiliser deja ouvert pour lire un wav ??

Merci à toi

Cirec · Answer

Salut,
donc pour utiliser Media player c'est simple :

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShellExecute(Handle, nil, '"C:\Program Files\Windows Media Player\wmplayer.exe"', '"c:\windows\media	ada.wav"', nil, SW_SHOW);         
end;


procedure TForm1.Button2Click(Sender: TObject);
begin
  ShellExecute(Handle, nil, '"C:\Program Files\Windows Media Player\wmplayer.exe"', '"c:\windows\media\Windows XP D&#233;marrage.wav"', nil, SW_SHOW);        
end;

tu peux les utiliser dans n'importe quel ordre si media player est d&#233;j&#224; ouvert il lit uniquement le fichier pass&#233; en param&#232;tre 
surtout ne pas oublier de mettre les guiellemets ' " " '

@+
Cirec

Lire un fichier wav rapidement

4 réponses

Votre réponse

Discussions similaires