musik ins delphi projekt!?

[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]