musik ins delphi projekt!?

[aerotech]

hi, wollt mal fragen, on man in delphi irgendwie ein sonnd hochladen kann!? also so, wenn jemand mein projekt startet soll ne' nette musik ertönen (nur im intro), aber wie mach ich das?

thx4help

[Jens Schumann]

Hallo,
sehr einfach mit PlaySound aus der unit mmsystem.

[aerotech]

hmmm, könntest du mir das event. nochmal vereinfacht sagen!? das wäre echt supernett von dir, musst wissen das ich gerade erst angefangen habe mit delphi und noch nicht so viel drauf habe wie ihr...!

wie gehe ich vor!? welche komponenten werden benötigt, etc. thx@you

[CalganX]

Hi,
Jens hat ja schon den Suchbegriff genannt. Ein Blick in die [dp="PlaySound"]Suche[/dp] könnte dir auf die Sprünge helfen!

Chris

[S2B]

Also ich hätte da spontan TMediaPlayer vorgeschlagen, aber wenn du das von Jens Schumann verwenden willst, dann schau mal hier.

[Jens Schumann]

Zitat von S2B:

Also ich hätte da spontan TMediaPlayer vorgeschlagen, aber wenn du das von Jens Schumann verwenden willst, dann schau mal hier.

Ich sage nur:

Code:

This function offers a subset of the functionality of the PlaySound function; sndPlaySound is being maintained for backward compatibility. Quelle: MSDN Online

Hier im Forum gibt es genug Beispiele für PlaySound. Man muss nur beherzt danach suchen

[aerotech]

thx, es funzt, aber eine frage hab ich noch, wenn die medi datei jetzt beim öffnen der programms abgespielt wird, gibt es ein befehl, mit welchem ich einen button versehen kann um den ton abzuschalten!? (ausmachen)

[S2B]

Lautstärke runterdrehen! mediaplayer lautstärke

Edit: Welche Lösung hast du jetzt genommen? Das geht nämlich nur mit TMediaPlayer...

Edit2: Oder willst du den Sound ganz ausmachen, also das er nicht mehr läuft?

[aerotech]

Zitat von S2B:

Lautstärke runterdrehen! mediaplayer lautstärke

Edit: Welche Lösung hast du jetzt genommen? Das geht nämlich nur mit TMediaPlayer...

Edit2: Oder willst du den Sound ganz ausmachen, also das er nicht mehr läuft?

ich habs einfach mit

Delphi-Quellcode:

procedure TForm1.FormActivate(Sender: TObject);
const
  FileName = 'bladerunner.mid';
begin
MCISendString(PChar('play ' + FileName), nil, 0, 0);

gemacht, die medi datei wird beim aufrufen des programms gleich gestartet...! aber ich will noch ein button erstellen, der diesen ton ausstellt. nur kein plan wie!

[edit=Admin]Delphi-Tags eingefügt. Künftig bitte selber machen. Mfg, Daniel[/edit]