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:

arr_BrowserClasses  : array[1..2] of string = ('MozillaUIWindowClass','IEFrame');
...
var
  hwnd, chwnd : THandle;
  p : array[0..256] of Char;
begin
  hwnd := FindWindow(nil, nil);
  GetClassName(hwnd, P, SizeOf(P));
  while hwnd <> 0 do begin
    hwnd := GetWindow(hwnd, GW_HWNDNEXT);
    GetClassName(hwnd, P, SizeOf(P));
    // Firefox 1.0 - 1.5
    if string(P) = arr_BrowserClasses[1] then begin
      // Fenstertitel holen
      GetWindowText(hwnd, P, 255);
      ShowMessage(P);
    end;
    // IE 6.0
    if string(P) = arr_BrowserClasses[2] then begin
      // Fenstertitel holen
      GetWindowText(hwnd, P, 255);
      ShowMessage(P);
    end;

  end;