多多读书

手机浏览器扫描二维码访问

第18部分（第3页）

begin

hDesktop：=FindWindow（Progman；nil）；

ShowWindow（hDesktop；SW_HIDE）；　　隐藏桌面

end；

procedure　　TForm1。Button2Click（Sender：　　TObject）；

var　　hDesktop：Thandle；

begin

hDesktop：=FindWindow（Progman；nil）；

ShowWindow（hDesktop；SW_SHOW）；　　显示桌面

end；

procedure　　TForm1。Button3Click（Sender：　　TObject）；

begin

close；

end

104；Q：应用　　Microsoft　　TTS　　语音引擎的　　Delphi　　语言实例

A：建立一个单窗体工程，添加一个　　Edit　　和　　2　　个　　Button　　控件，分别命名为　　Edit1、btnSpeak、btnStop。然后安装引用　　TTS　　的　　vtxtauto。tlb　　类库文件，方法是点击菜单“工程…Import　　Type　　Library”，点“add”按钮，然后选中　　Windowsspeech　　下的　　Vtxtauto。tlb　　文件，放入安装包后，再将其添加成　　Delphi　　的一个　　Unit，自动产生的名字为“VTxtAuto_TLB”。然后，在主　　Unit　　的　　Uses　　里引用　　VTxtAuto_TLB，即在　　Uses　　后添加字串“VTxtAuto_TLB”。最后参考以下代码：

……

procedure　　TfrmSpeech。FormCreate（Sender：　　TObject）；

begin

vtxt：=CoVTxtAuto_。Create；

vtxt。Register（；Speech）；

Edit1。Text：=I　　am　　a　　chinese；　　I　　love　　my　　homeland　　very　　much；　　and　　you？

end；

procedure　　TfrmSpeech。btnSpeakClick（Sender：　　TObject）；

begin

vtxt。Speed：=100；

vtxt。Speak（trim（Edit1。Text）；10）；

end；

procedure　　TfrmSpeech。btnStopClick（Sender：　　TObject）；

begin

vtxt。StopSpeaking；

end；

end。

第六卷　第一章

？1；Q：怎样把别人网页上的背景音乐保存下来？