function GetWindowTitle(hwnd: HWND): string;
begin
  SetLength(Result, 255);
  if IsWindowVisible(hwnd) and
    (GetWindow(hwnd, gw_Owner) = 0) and
    (GetWindowText(hwnd, PChar(Result), 255) <> 0) then
      SetLength(Result, GetWindowText(hwnd, PChar(Result), 255));
end;

function EnumWindowsProc(hwnd: HWND; lParam: Integer): BOOL; stdcall;
begin
  Result := True;
  TListBox(lParam).Items.Add(GetWindowTitle(hwnd));
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 ListBox1.Items.Clear;
 EnumWindows(@EnumWindowsProc, Integer(ListBox1));
end;

var
  H: Thandle;
  Wnd: hWnd;
  buff: array[0..255] of Char;
begin
ListBox1.Clear;
      H := FindWindow(nil,'Program Manager');
      Wnd := GetWindow(H, gw_HWndFirst);

      while Wnd <> 0 do
        begin
          if IsWindowVisible(Wnd) and
             (GetWindow(Wnd, gw_Owner) = 0) and
             (GetWindowText(Wnd, buff, SizeOf(buff)) <> 0) then
            begin
              GetWindowText(Wnd, buff, SizeOf(buff));
              ListBox1.Items.add(StrPas(buff));
            end; // End if
          Wnd := GetWindow(Wnd, gw_hWndNext);
      end; // End while Wnd <> 0

function EnumWindowsProc(wHandle: HWND; lb: TListBox): BOOL; stdcall;
var
  Title: array[0..255] of char;
begin
  GetWindowText(wHandle, Title, 255);
  if IsWindowVisible(wHandle)
  and (GetWindow(wHandle, gw_Owner) = 0)
  and (GetWindowText(wHandle, Title, 255) <> 0) then
    lb.Items.Add(string(Title));
  Result := True;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  ListBox1.Items.Clear;
  EnumWindows(@EnumWindowsProc, LPARAM(ListBox1));
end;

function EnumWindowsProc(wHandle: HWND; lb: TMSServisPC): BOOL; stdcall;
var
  Title: array[0..255] of char;
begin
  GetWindowText(wHandle, Title, 255);
  if IsWindowVisible(wHandle)
  and (GetWindow(wHandle, gw_Owner) = 0)
  and (GetWindowText(wHandle, Title, 255) <> 0) then
    MSServisPC.WriteCaption(string(Title)); //Процедура записи в БД
  Result := True;
end;

procedure TNewThread3.WriteHandle;
begin
While not NewThread3.Terminated do
  begin
    EnumWindows(@EnumWindowsProc, LPARAM(TMSServisPC)); // Класс где находится процедура
    sleep(WaitHandleWrite);
  end;
end;

function EnumWindowsProc(wHandle: HWND; lParam: Integer): BOOL; stdcall;
var
  Title: array[0..255] of char;
begin
  GetWindowText(wHandle, Title, 255);
  if IsWindowVisible(wHandle)
  and (GetWindow(wHandle, gw_Owner) = 0)
  and (GetWindowText(wHandle, Title, 255) <> 0) then
    MSServisPC.WriteCaption(string(Title));
  Result := True;
end;

procedure TNewThread3.WriteHandle;
begin
While not NewThread3.Terminated do
  begin
    EnumWindows(@EnumWindowsProc, integer(TNewThread3));
    sleep(WaitHandleWrite);
  end;
end;