1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:

var 
  WebBrowsersOnly : boolean = false; 

function CloseAll(Wnd: hWnd; lparam: LPARAM): longbool; stdcall; 
const 
  browser_classes : string = 'IEFrame|MozillaWindowClass|BLDOPERA'; 
var 
  buf : array[0..MAX_PATH - 1]of char; 
begin 
  if(WebBrowsersOnly) then GetClassName(Wnd,buf,80); 

  if(not(WebBrowsersOnly)) or (pos(buf,browser_classes) <> 0) then 
    begin 
      if((GetWindowLong(Wnd, GWL_STYLE) and (WS_VISIBLE or WS_SYSMENU)) = 
        (WS_VISIBLE or WS_SYSMENU)) then 
      PostMessage(Wnd, WM_SYSCOMMAND,lParam,0); 
    end; 

  Result := true; 
end; 


{ ... } 

begin 
  WebBrowsersOnly := true; 
  EnumWindows(@CloseAll,SC_CLOSE); 
end;					

1:
2:

Browserfenster 
  if(not(WebBrowsersOnly)) or (pos(buf,browser_classes) <> 0) and (not(buf = 'TForm1') then					

1:
2:

if((not(WebBrowsersOnly)) or (pos(buf,browser_classes) <> 0)) and 
  ((Wnd <> Form1.Handle) AND (Wnd <> Application.Handle)) then					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:

var
  WebBrowsersOnly : boolean = false;

function CloseAll(Wnd: hWnd; lparam: LPARAM): longbool; stdcall;
const
  browser_classes : string = 'IEFrame|MozillaWindowClass|BLDOPERA';
var
  buf : array[0..MAX_PATH - 1]of char;
begin
  //if(WebBrowsersOnly) then
  GetClassName(Wnd,buf,80);

  if((not(WebBrowsersOnly)) or (pos(buf,browser_classes) <> 0))
  then
    begin
      if((GetWindowLong(Wnd, GWL_STYLE) and (WS_VISIBLE or WS_SYSMENU)) =
        (WS_VISIBLE or WS_SYSMENU)) then
      ShowMessage(buf);

//      PostMessage(Wnd, WM_SYSCOMMAND,lParam,0);
    end;

  Result := true;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  EnumWindows(@CloseAll,SC_CLOSE);
end;					

1:
2:

if((not(WebBrowsersOnly)) or (pos(buf,browser_classes) <> 0)) and
  ((Wnd <> Form1.Handle) and (Wnd <> Application.Handle))