title: How to get captions of actual windows currently running?
body: <p>I have a question: I simply need to get captions of all windows in a list, by captions I mean the "Notepad", "Total Commander" - simply the text shown in the top-edge of a window.</p>
  
  <p>So far I've gotten here</p>
  
  <pre><code>function EnumWindowProc(hHwnd: HWND; lParam : integer): boolean; stdcall;
  var
    pPid : DWORD;
    title, ClassName : string;
  begin
    if (hHwnd=NULL) then
    begin
      result := false;
    end
    else
    begin
      GetWindowThreadProcessId(hHwnd,pPid);
      SetLength(ClassName, 255);
      SetLength(ClassName,
                GetClassName(hHwnd,
                             PChar(className),
                             Length(className)));
      SetLength(title, 255);
      SetLength(title, GetWindowText(hHwnd, PChar(title), Length(title)));
      OptionsForm.ListBox1.Items.Add(title);
      OptionsForm.Memo1.Lines.Add
        ('Class Name = ' + className +
         '; Title = ' + title +
         '; HWND = ' + IntToStr(hHwnd) +
         '; Pid = ' + IntToStr(pPid));
      Result := true;
    end;
  end;
  </code></pre>
  
  <p>But well, it returns all kinds of "windows", different focuses of forms etc. How can I get only the "main" ones? </p>
  
  <p>Here is a sample of the results:</p>
  
  <pre><code>Class Name = Shell_TrayWnd; Title = ; HWND = 65898; Pid = 3776
  Class Name = CiceroUIWndFrame; Title = CiceroUIWndFrame; HWND = 65976; Pid = 3776
  Class Name = THelpInsightWindowImpl; Title = HelpInsightWindow; HWND = 1577734; Pid = 4852
  Class Name = THelpInsightWindowImpl; Title = HelpInsightWindow; HWND = 591660; Pid = 4852
  Class Name = TTokenWindow; Title = CodeParamWindow; HWND = 985436; Pid = 4852
  Class Name = TaskSwitcherWnd; Title = Přepínání úloh; HWND = 66824; Pid = 3776
  Class Name = tooltips_class32; Title = ; HWND = 198982; Pid = 1768
  Class Name = tooltips_class32; Title = ; HWND = 66046; Pid = 3776
  Class Name = _SearchEditBoxFakeWindow; Title = ; HWND = 66024; Pid = 3776
  Class Name = tooltips_class32; Title = ; HWND = 66008; Pid = 3776
  Class Name = tooltips_class32; Title = ; HWND = 131538; Pid = 3776
  Class Name = Desktop User Picture; Title = Magicmaster; HWND = 65982; Pid = 3776
  Class Name = DV2ControlHost; Title = Nabídka Start; HWND = 65978; Pid = 3776
  Class Name = tooltips_class32; Title = ; HWND = 327840; Pid = 1768
  Class Name = tooltips_class32; Title = ; HWND = 460808; Pid = 1768
  Class Name = CTSCTooltip; Title = ; HWND = 266710; Pid = 2792
  Class Name = Auto-Suggest Dropdown; Title = ; HWND = 69884; Pid = 4732
  Class Name = Auto-Suggest Dropdown; Title = ; HWND = 69802; Pid = 4732
  Class Name = TaskbarNotifierClass; Title = DAP Message Center; HWND = 68924; Pid = 4732
  Class Name = tooltips_class32; Title = ; HWND = 134356; Pid = 1992
  Class Name = ATKOSD; Title = ATKOSD; HWND = 65884; Pid = 3636
  </code></pre>
  
  <p>Thank you in advance!</p>