ie8 sekmelerini kapatma

Question

Aşağıdaki kod Internet Explorer 8'de bir sekmeyi kapatmıyor. Wm_close komutunu Wnd'ye gönderirseniz, Internet Explorer'ı kapatır ancak geçerli sekmeyi tüm 'ieframe' değil kapatmak istiyorum. FindWindowEX (Wnd, 0, 'Frame Tab', nil) bir çerçeveye bir tanıtıcıyı yeniden alması gerekiyor mu? Eğer evet ise, Internet Explorer'da mevcut sekmeyi neden kapatmıyor?

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

Bundan daha başka 1 katman, sekme kendisi, iyi olduğunu cevapsız

Aşağıdaki ekran görüntüsünde gösterilmektedir

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

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

IE8 Pencere yapısı ..

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