1:

  EnumWindows(@EnumWinProc, 0);                    

1:

function TfrmOnTopControl.EnumWinProc(Wnd: THandle; LParam: LongInt): Boolean; stdcall;                    

1:
2:
3:
4:

//style: integer
    style:=getwindowlong(wnd,GWL_STYLE);
    if (style and WS_VISIBLE) <> 0 then           //inttostr(style) + ',' +
    if (style and WS_SYSMENU) <> 0 then                    

1:
2:
3:
4:
5:

WS_OVERLAPPEDWINDOW
WS_VISIBLE
WS_CLIPSIBLINGS
WS_CLIPCHILDREN
WS_OVERLAPPED                    

1:
2:
3:
4:

WS_EX_LEFT
WS_EX_LTRREADING
WS_EX_RIGHTSCROLLBAR
WS_EX_WINDOWEDGE                    

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:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:

function GetWindowText(wnd: Hwnd): String;
var
  dwResult: DWord;
  pBuffer: PChar;
begin
  SetLastError(0);
  if SendMessageTimeOut(wnd, WM_GETTEXTLENGTH, 0, 0, SMTO_NORMAL,
    750, dwResult) = 0 then
  begin
    if GetLastError = ERROR_TIMEOUT then
      Result := '<SendMessage timed out>'
    else
      Result := '<SendMessage failed>';
    Exit;
  end;
  Inc(dwResult);

  pBuffer := GetMemory(dwResult);
  try
    if SendMessageTimeOut(wnd, WM_GETTEXT, dwResult, Integer(pBuffer),
      SMTO_NORMAL, 750, dwResult) = 0 then
    begin
      if GetLastError = ERROR_TIMEOUT then
        Result := '<SendMessage timed out>'
      else
        Result := '<SendMessage failed>';
    end
    else
      Result := String(pBuffer);
  finally
    FreeMemory(pBuffer);
  end;
end;


function GetClassName(wnd: Hwnd): String;
var
  szBuffer: array [0..255] of Char;
  iCount: Integer;
begin
  ZeroMemory(@szBuffer, SizeOf(szBuffer));
  iCount := Windows.GetClassName(wnd, szBuffer, SizeOf(szBuffer));
  if wnd = GetDesktopWindow then
    StrPCopy(@szBuffer[iCount], 'Desktop');

  Result := String(szBuffer);
end;

function enumProc(wnd: Hwnd; Listbox: TListBox): Boolean; stdcall;
var
  dwStyle: DWord;
  bAdd: Boolean;
begin
  Result := true;
  if IsWindowVisible(wnd) then
  begin
    bAdd := True;
    dwStyle := GetWindowLong(wnd, GWL_STYLE);
    bAdd := bAdd and (dwStyle and WS_POPUP = WS_POPUP);

    dwStyle := GetWindowLong(wnd, GWL_EXSTYLE);
    bAdd := bAdd or (dwStyle and WS_EX_APPWINDOW = WS_EX_APPWINDOW);
    bAdd := bAdd and not (dwStyle and WS_EX_TOOLWINDOW = WS_EX_TOOLWINDOW);

    if bAdd then
      Listbox.Items.Add('0x' + IntToHex(wnd, 8) + ' - ' + GetClassName(wnd) +
      ' - ' + GetWindowText(wnd));
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  EnumWindows(@enumProc, Integer(ListBox1));
end;