第18部分(第3/5 页)

le；

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：怎样把别人网页上的背景音乐保存下来？

A：浏览该网页后；在你的 WindowsTemporary Internet Files 文件夹下可以找到该背景音乐的缓存文件，拷贝出来即可使用。如果还是找不见该文件，可以打开网页的源文件，找到音乐文件的 URL 路径，用“蚂蚁”等 FTP 软件进行下载。

2；Q：避免有人从你分帧的主页的帧中径直进入网站；而不是从 index。htm 中进入？

A：在帧中的网页的〈head〉〈/head〉之间加入以下脚本代码：

〈Script language=〃JavaScript〃〉

if （top==self）

self。location。href=〃index。htm〃；

〈/Script〉

这样；当有人从帧中进入网站时；就会自动重定向到主页文件 index。htm。

3。Q：怎样防止别人把你的网页