请教各位大侠程序中如何判断系统有无安装tts

[庆祝0101]

tts的详细应用有没有相关资料

[liao_yy]

UP

[mmzxg]

up!

[rtewryery]

TTS
abbr.[军] Tank Thermal Sight, 坦克热成像瞄准镜
abbr.[军] Target Tracking System, 目标跟踪系统
abbr.[军] Television Training System, 电视训练系统

[winy]

function ttsisinstall(ClassID:string): Boolean;

begin
with TRegistry.Create do
try
RootKey := HKEY_CLASSES_ROOT;
Result := OpenKey('\CLSID\' + '{2398E32F-5C6E-11D1-8C65-0060081841DE}', False);
finally
Free;
end;
end;