وبلاگ شخصی حامد شیرزاد
وبلاگ شخصی حامد شیرزاد
صفحات وبلاگ
نویسنده: حامد شیرزاد - ۱۳٩٠/٧/۱٢

Function Speech(Text:String);

Var

Voice: OLEVariant;

Begin

Voice := CreateOLEObject('SAPI.SpVoice');

if Not(Trim(Text)='') then

Voice.Speak(trim(Text), 0);

End;

نویسندگان وبلاگ:
مطالب اخیر:
کدهای اضافی کاربر :