Закрытие всех окон IE

Материал из DRKB


procedure CloseAllIE_1;
var
  ie: HWND;
begin
  // Ищем окно IE
  ie := FindWindow('IEFrame', nil);
  // пока найдено окно IE...
  while ie <> 0 do
  begin
    // ... закрываем его
    PostMessage(ie, WM_CLOSE, 0, 0);
    // ищем следующее
    ie := FindWindow('IEFrame', nil);
  end;
end;


Author: bizar
Source: http://forum.sources.ru
ID: 03521