Bonjour a tous :)
J'essaie de faire jouer un wav format mp3 que j'ai inclu en ressource dans mon programme. Le problème : Pas de joli son... Rien ne sort, mais le programme continue.
Si j'essaie de le faire jouer directement du ficier .wav (donc pas avec la ressource) ça fonctionne parfaitement... J'ai utilisé Res Hia pour créer la ressource...
Voici le code utilisé :
{$R STP.res}
procedure TfPopAd.Anim ;
var
Hres: THandle;
Pres: PChar;
begin
Hres := FindResource(0, PChar('STP'), 'WAV');
Hres := LoadResource(0, Hres);
Pres := LockResource(Hres);
SndPlaySound(Pres, SND_ASYNC);
UnLockResource(Hres);
FreeResource(Hres);
|
J'ai pris ce bout de code du site de DELPHICOOL...
Merci d'aider un débutant ^^ :)