Warten bis Sprachausgabe beendet

[BUG]

Das bedeutet imho, dass dein Problem beim Aufwecken durch den Tastendruck (QS_Key) liegt und nicht bei der Sprachausgabe.

Eventuell könnte man es so beheben:

Delphi-Quellcode:

procedure TMain.Button1Click(Sender: TObject);
var Reason:Cardinal; Ev:THandle;
begin
   Edit1.Text:='';
   Application.ProcessMessages;
   Voice.Speak('Hallo, ich warte jetzt, bis der Text zu ende ist, oder eine '+
               'Taste gedrückt wird.', 1);
   Ev:=Voice.SpeakCompleteEvent;
   // >>>
   speechCanceled := false; // "global"
   repeat
     Reason:=MsgWaitForMultipleObjects(1, Ev, False, Infinite, QS_Key);
     if Reason = (WAIT_OBJECT_0 + 1) then
       Application.ProcessMessages;
   until speechCanceled or (Reason = WAIT_OBJECT_0);
   // <<<
   Edit1.Text:=IntToStr(Reason);
end;

speechCanceled könnte dann bei Bedarf (also einer gewünschten Tasten-Aktion) in der Message-Behandlung des Formulars gesetzt werden.

[Amateurprofi]

@Bug:
Das wird so nicht funktionieren, weil (zumindest bei mir) MsgWaitForMultipleObjects sofort zurückkehrt und konstant 1 als Resultat liefert. Zum Drücken einer Taste kommt es also gar nicht.

Ich habe mein Problem jetzt so gelöst:

Delphi-Quellcode:

PROCEDURE TMain.Speak(Const S:String);
var Res:DWord; EV:THandle;
begin
   Timer.Enabled:=False;
   Voice.Skip('SENTENCE',MaxInt);
   fSpeakCancelled:=False;
   Voice.Speak(S,1);
   EV:=Voice.SpeakCompleteEvent;
   repeat
      Res:=WaitForSingleObject(Ev,100);
      if Res=WAIT_TIMEOUT then Application.Processmessages;
   until (Res<>WAIT_TIMEOUT) or SpeakCancelled;
   if not SpeakCancelled then Timer.Enabled:=True;
end;

fSpeakCancelled wird in FormShortCut dann auf True gesetzt, wenn eine Taste gedrückt wird.
Mit Voice.WaitUntilDone klappte das merkwürdigerweise nicht.
Danke für Deinen Hinweis auf WaitForSingleObject, das ich von vornherein verworfen hatte.
Da ich ja nicht nur auf das Ende der Sprachausgabe sondern parallel auch auf Tastendrücke warten wollte war ich auf MsgWaitForMultipleObjects fixiert.