cómo cerrar las pestañas ie8

Question

Este código a continuación no cierra una pestaña en Internet Explorer 8. Si publico el comando wm_close para Wnd, cierra Internet Explorer, pero quiero cerrar la pestaña actual, no toda la 'ieframe'. ¿Se supone que FindWindowEX (Wnd, 0, 'Frame Tab', nil) devuelve un manejador a ie frame? En caso afirmativo, ¿por qué no cierra la pestaña actual en 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

Se perdió 1 capa, la pestaña en sí, aparte de eso, estaba bien ..

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;` 

estructura

IE8 ventana se muestra en la siguiente captura de pantalla

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