紫光文学城

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

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

我的死宅萝莉妹妹  网游之毒手药王  我不是侦探  惹鬼(生子++兽)----小秦子  醉死当涂  首席代表  [末世]侠医之微爱  穿越沦为暴君的小妾(全集)  上市公司48大财务迷局  自动变有钱  艳鬼夫君  叶卡捷琳娜  满城尽带黄金甲  综漫 奇幻贵公主  妞妞-一个父亲的札记  李鹏外事日记  非梦志3商道乱世  三只鸳鸯一对半2  听天使在笑  影响一代读者的小说:布鲁诺与布茨