Bonjour,

juste avant que je ne m'arrête pour quelques heures (ou pas) j'ai un petit souci avec TMediaPlayer. Je voudrais selon un nombre tiré au hazard, jouer un son
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
procedure TMainUnit.PlaySound(I: Integer);
var
  ResStream: TResourceStream;
begin
  try
  ResStream := TResourceStream.Create(HInstance, Format('le%d',[i]), RT_RCDATA);
  try
    ResStream.Position := 0;
    ResStream.SaveToFile(TmpFile);
 // ?    Mediaplayer1.Clear;
    MediaPlayer1.FileName := TmpFile;
    MediaPlayer1.Play;
  finally
    ResStream.Free;
  end;
  except
 
  end;
end;
Seulement seul le premier est joué. Quelle est mon erreur ?