Lancement d'une musique au démarrage

Question

Voila étant nouveau j'aimerais savoir comment peut on inclure une musique MP3 et qu'elle s'execute au lançement de mon application.

Merci beaucoup

Nicolas___ · Answer

bon je me sens gentil ... 

// remplace project1 par le nom de ton projet
program Project1;

uses
  Forms,
  MPlayer,
  windows,
 // nom de ton unité
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}
// tu places ici le chemin de ton mp3 , ds l'exemple le chemin est en dur mais c mauvais de faire ca 
// travaille plutot en absolu
const
  myMp3Location : string ='c:	est.mp3';
var
  media:TMediaPlayer;
begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  media := TMediaPlayer.Create(form1);
  media := TMediaPlayer.CreateParented(form1.Handle);

  media.FileName := myMp3Location;

  media.Open;
  media.Play;

  // ton application se lance 
  Application.Run;
end.

Attention je ne gere aucune erreur , genre si ton mp3 n'existe pas ...

Nicolas___ · Answer

eu uses windows ,tu peux le retirer ,je ne sais pas ce qu'il fait la

Nicolas___ · Answer

je vais y arriver ... 

Apres Application.run place ceci media.Free;

Voila

Que qq1 me corrige si je fais des conneries ( bon ok j'utilise TMediaPlayer mais bon ... :) )

Cirec · Answer

Salut,

je pense qu'il n'était pas utile d'écrire autant de code et modifier le DPR pour arriver au même résultat 

Tu dépose un TMediaPlayer sur ta fiche principale (Form1 ici)
Tu mets sa propiété Visible à False 
et tu complète l'évènement OnCreate de la fiche comme ceci :

Procedure TForm1.FormCreate(Sender: TObject);
begin
  MediaPlayer1.FileName :=  'F:\USB Drive\01 Piste 1.mp3';
  MediaPlayer1.Open;
  MediaPlayer1.Play;
 end ;

 
@+
Cirec

<hr siz ="" />

emirej · Answer

Merci ! Mais si la personne ne dispose pas de la musique elle ne pourra pas l'entendre si ?

emirej · Answer

Aussi je ne trouve pas l'event Oncreate :s

Cirec · Answer

"Mais si la personne ne dispose pas de la musique elle ne pourra pas l'entendre si ?"

ben non il faut la fournir avec l'executable 

"Aussi je ne trouve pas l'event Oncreate :s"

tout simplement en double cliquant sur la fiche (Form1) la ou il n'y a pas de composant

ou alors par l'inspecteur d'objets --> onglet évènements (Events) 
double cliquer à droite de OnCreate

 
@+
Cirec

<hr siz="" />

emirej · Answer

Merci mais le hic faut que je trouve comment l'inclure a mon executable ^^'

Nicolas___ · Answer

"je pense qu'il n'était pas utile d'écrire autant de code et modifier le DPR pour arriver au même résultat "



Ok mais c'etait plus pour le completer et apres faire une sorte de SplashScreen ... 

puis j'avais envie de faire autrement 

(Mais c'est vrai qu'a mon avis je ne suis pas sur que  [auteur/EMIREJ/1006187.aspx emirej] comprendra ma solution 
puis au moins avec ma solution ya pas besoin de poser qqch sur la fiche  na ! lol )

Lancement d'une musique au démarrage

9 réponses

Votre réponse

Discussions similaires