如何关闭一个IE窗口？sendmessage(hwd,wm_close,0,0);不起作用

Question

请问如何取得当前运行的ie的标题(存放到字符串中)。
以及如何关闭当前的ie.
首先在工程中加入对Microsoft Internet Controls的引用
代码：
    Dim WithEvents objIEMain As WebBrowser_V1
    Dim objIE As Object
    Dim dWinFolder As New ShellWindows
    Dim objDoc As Object
    
    For Each objIE In dWinFolder
        List1.AddItem objIE.Document.Title
        List2.AddItem objIE.LocationURL
    Next
就可以在List1中列出所有IE文档的标题了。  下面是关闭其中一个窗口的代码：
If InStr(objIE.Document.Title, "Apple") Then                
    objIE.Quit
End If

Answer 1

SendMessage(FindWindow('IEFRAME', nil), WM_SYSCOMMAND, SC_CLOSE, 0);

Answer 2

同意：pathe(睡斛)         SendMessage(FindWindow('IEFRAME', nil), WM_SYSCOMMAND, SC_CLOSE, 0);

Answer 3

var
    HIE:THandle;
begin
    HIE:=Findwindow('ieframe',nil);
        postmessage(HIE,WM_close,0,0);
end;