Delphi-Help

Procedure CloseAllIE_1;

var

   ie:HWND;

  begine

    //Ищем окно IE

    ie:=FindWindow(`IEFrame`, nil);

    //пока найдено окно IE...

    while ie<>0 do

      begin

        //... закрываем его

        postmessage (ie, WM_CLOSE, 0, 0);

        //ищем следующее

        ie:=FindWindow (`IEFrame`, nil);

      end;

end;