Beep?

[Rollo62]

Eine Möglichkeit wäre vielleicht noch, mit Grijjy TextToSpeech
https://blog.grijjy.com/2017/01/09/c...ext-to-speech/

Delphi-Quellcode:

procedure TFormMain.FormCreate(Sender: TObject);
begin
  FTextToSpeech := TgoTextToSpeech.Create;
  FTextToSpeech.OnAvailable := TextToSpeechAvailable;
  FTextToSpeech.OnSpeechStarted := TextToSpeechStarted;
  FTextToSpeech.OnSpeechFinished := TextToSpeechFinished;
end;

...

procedure NeedABeep;
begin
  FTextToSpeech.Speak( 'Piep' );  // :-D
end;