come chiudere le schede IE8

Question

Questo codice qui sotto non è la chiusura di una scheda in Internet Explorer 8. Se ho posto di comando WM_CLOSE a WND si chiude Internet Explorer, ma voglio chiudere la scheda corrente non l'intero 'ieframe'. FindWindowEX (Wnd, 0, 'Frame Tab', nil) dovrebbe ricomporre un handle per ie frame? Se sì, perché non chiude la scheda corrente in Internet Explorer?

var 
    Wnd, WndChild : hwnd; 
begin 
    Wnd := FindWindow('IEFrame', nil); 
    WndChild := FindWindowEX(Wnd, 0, 'Frame Tab', nil); 
    postmessage(WndChild, wm_close, 0, 0); 
end; 

Answer 1

Vi siete persi 1 strato, la scheda stessa, a parte questo, è andato tutto bene ..

var 
    Wnd, WndChild: THandle; 
begin 
    Wnd := FindWindow('IEFrame', nil); // Top most IE 
    if Wnd > 0 then 
    begin 
    WndChild := FindWindowEx(Wnd, 0, 'Frame Tab', nil); // Tabs holder 
    if WndChild > 0 then 
    begin 
     WndChild := FindWindowEX(WndChild, 0, 'TabWindowClass', nil); // top most tab 
     if WndChild > 0 then 
     if PostMessage(WndChild, WM_CLOSE, 0, 0) then 
      ShowMessage('Close request succeeded...') 
     else 
      ShowMessage('Failed!'); 
    end 
    else 
     // not tabbed, close IE 
     if PostMessage(Wnd, WM_CLOSE, 0, 0) then 
      ShowMessage('Close request succeeded...') 
     else 
      ShowMessage('Failed!'); 
    end 
    else 
    ShowMessage('No IE'); 
end; 

Answer 2

var 
    hie, 
    hftab, 
    htab : DWORD; 
begin 
    hie := FindWindow('IEFrame', nil); 
    hftab := FindWindowEx(hie, 0, 'Frame Tab', nil); 
    htab := FindWindowEX(hftab, 0, 'TabWindowClass', nil); 
    PostMessage(htab, WM_CLOSE, 0, 0); 
    CloseHandle(hie); 
end;` 

struttura

IE8 finestra è mostrato nella schermata sotto

alt text http://img171.imageshack.us/img171/6702/captureids.png