Hallo,
sorry, das ich schon wieder poste, aber das liegt an den vielen problemchen 
warum peept der computer nicht?
var
media : TMediaPlayer;
begin
media := TMediaPlayer.create(Form_Main);
media.Parent := self;
media.Visible := false;
Application.ProcessMessages;
media.DeviceType := dtWaveAudio;
media.Wait := true;
media.filename := //ExtractFilePath(Paramstr(0)) +
‚beep.wav‘;
try
media.Open;
media.play;
Application.ProcessMessages;
sleep(2000);
media.Stop;
media.Close;
finally
media.free;
end;
end;
Die Warterei nach der akustischen Ausgabe ist beabsichtigt.
Vielleicht gehts auch viel einfacher, es muss aber auch für verschiedene sounds funktionieren. ein Beep() reicht also nicht.
Danke!
Gruss Chris