子浪小说>十万个为什么读后感30字 > 第18部分（第3页）
第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：怎样把别人网页上的背景音乐保存下来？
https://www.cwzww.com https://www.du8.org https://www.shuhuangxs.com www.baquge.cc
