{
Check SpeechApi existance.
}
procedure CheckSpeechApi(Flags:Integer);
var sApi,sDct,sRus,sEng:String; b:Boolean;
begin
 sApi:=''; sDct:=''; sRus:=''; sEng:='';
 { Read engine versions }
 sApi:=ParamStr('Registry HKLM SOFTWARE\Microsoft\SpeechAPI InstallDir');
 sDct:=ParamStr('Registry HKLM SOFTWARE\L&H\TTS\V6.0\System UDCT+Version');
 sRus:=ParamStr('Registry HKLM SOFTWARE\L&H\TTS\V6.0\TTS3000\Russian Version');
 sEng:=ParamStr('Registry HKLM SOFTWARE\L&H\TTS\V6.0\TTS3000\British+English Version');
 { Print engine versions }
 if Length(sApi)>0
 then Success('SAPI: '+sApi)
 else Success('SAPI: not found');
 if Length(sDct)>0
 then Success('TTS - UDCT version: '+sDct)
 else Success('TTS - UDCT version: not found');
 if Length(sRus)>0
 then Success('TTS - Russian version: '+sRus)
 else Success('TTS - Russian version: not found');
 if Length(sEng)>0
 then Success('TTS - British English version: '+sEng)
 else Success('TTS - British English version: not found');
 { Install absent engines }
 if (iAnd(Flags,1)<>0) and (Length(sApi)=0)
 then b:=eval('@system @async @run -idle '
       +DaqFileRef('~~\Resource\Tools\SpeechApi\spchapi.exe','')+' /Q')>0;
 if (iAnd(Flags,2)<>0) and (Length(sApi)>0) and (Length(sRus)=0)
 then b:=eval('@system @async @run -idle '
       +DaqFileRef('~~\Resource\Tools\SpeechApi\lhttsrur.exe','')+' /Q')>0;
 if (iAnd(Flags,4)<>0) and (Length(sApi)>0) and (Length(sEng)=0)
 then b:=eval('@system @async @run -idle '
       +DaqFileRef('~~\Resource\Tools\SpeechApi\lhttseng.exe','')+' /Q')>0;
 sApi:=''; sRus:=''; sEng:='';
end;
