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]