如何關閉 IE 警告視窗?...(100分)

使用 <br>&nbsp; &nbsp; &nbsp; ph:=FindWindow(nil,'Microsoft Internet Explorer');<br><br>&nbsp; &nbsp; &nbsp; if ph&lt;&gt;0 then<br>&nbsp; &nbsp; &nbsp; begin<br>&nbsp; &nbsp; &nbsp; &nbsp; //GetWindowText(ph,buf,200);<br>&nbsp; &nbsp; &nbsp; &nbsp; GetClassName(ph,buf,200);<br>&nbsp; &nbsp; &nbsp; &nbsp; s:=string(buf);<br><br>&nbsp; &nbsp; &nbsp; &nbsp; if (pos('#32770',s)&gt;0) then<br>&nbsp; &nbsp; &nbsp; &nbsp; begin<br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; PostMessage(ph,WM_Close,0,0);<br>&nbsp; &nbsp; &nbsp; &nbsp; end;//.......以下略<br><br><br>可關閉大部分 IE 之警告視窗，但發現無法關閉<br>右上角 X 符號 Disable 的視窗，<br>這裡有一範本站台可試試。<br>&lt;a href="http://www.htmlgo.com/helptopics/javascript/ad/jalertin02.html"&gt;<br>http://www.htmlgo.com/helptopics/javascript/ad/jalertin02.html&lt;/a&gt;<br><br>請問有何函數或 API 可關閉此種視窗？<br><br>順便問一下，有何方法可偵測是否要關機了？<br>因我寫了一個為我自己量身打造的簡易剪貼簿，<br>可是，當關機時，Windows 自動關閉一些程式，等到關到我的<br>程式時，便停下來了，因為 Icon 不見了，可是用工作管理員瞧的結果，<br>程式還在，需強制關閉或我自己先行將程式關閉，方可順利關機，<br>系統 Win2000，未使用 TNMxxx 系列，有使用 Raize 的 TRzTrayIcon<br>與 AHM 的 TAHMHotKeyHolder，不知有無使用此元件的同志們有無遭遇<br>同樣的狀況？<br>

他的quitquery事件不触发？

不解？<br>此視窗類似站台詢問你是否要設為首頁(HomePage) 的視窗相似，<br>只能選擇 Yes/No ，方可關閉此視窗，不知有無其他方式？<br>

喔！抱歉！抱歉！<br>時間隔太久了，都忘記自己的問題了，<br>有使用 WM_QUERYENDSESSION ，不過，不會觸發勒？代碼如下：<br><br>procedure WMQUERYENDSESSION(var msg:TWMQUERYENDSESSION);message WM_QUERYENDSESSION;<br><br>procedure TForm1.WMQUERYENDSESSION(var msg:TWMQUERYENDSESSION);<br>begin<br>&nbsp; // 加上你的代碼<br>&nbsp; Beep;Beep;Beep;<br><br>&nbsp; ChangeClipboardChain(self.handle,GetDeskTopWindow);<br>&nbsp; msg.result:=1;<br>end;<br>

jiichen:如果还想接着讨论请定期提前自己的帖子，如果不想继续讨论请结束帖子。<br>

密切关注！<br>我也有这个问题等待解决！

&gt;&gt;

// 暫時用此方法解決<br>// 在網頁上有人使用設置本頁為首頁時<br>// 會出現一個詢問視窗<br>// 用以下方法可解，於繁體 Windows 下測試過了！<br>procedure TForm1.Button1Click(Sender: TObject);<br>var<br>&nbsp; &nbsp; wd:HWND;<br>begin<br>&nbsp; &nbsp; wd:=FindWindow(nil,'首頁');<br>&nbsp; &nbsp; if wd&lt;&gt;0 then<br>&nbsp; &nbsp; begin<br>&nbsp; &nbsp; &nbsp; &nbsp; wd:=FindWindowEx(wd,0,'Button','否(&amp;N)');<br>&nbsp; &nbsp; &nbsp; &nbsp; if wd&lt;&gt;0 then<br>&nbsp; &nbsp; &nbsp; &nbsp; begin<br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; SendMessage(wd,WM_LBUTTONDOWN,MK_LBUTTON,0);<br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; SendMessage(wd,WM_LBUTTONUP,MK_LBUTTON,0);<br>&nbsp; &nbsp; &nbsp; &nbsp; end;<br>&nbsp; &nbsp; end;<br>end;<br>

多人接受答案了。