[blaksoft]

доброго дня помогите с решением проблемы. Всегда пользовался кодом

Код:

var
  Wnd: hWnd;
  buff: array [0..127] of Char;
begin
  ListBox1.Clear;
  Wnd := GetWindow(Handle, gw_HWndFirst);
  while Wnd <> 0 do begin {Не показываем:}
    if (Wnd <> Application.Handle) and {Собственное окно}
      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;
    Wnd := GetWindow(Wnd, gw_hWndNext);
 end;
 ListBox1.ItemIndex := 0;
end;

для получения списка окон все было в порядке пока пользовался делфи7, а когда перешел на делфи ХЕ3 стала выскакивать ошибка на некоторые окна которые открываются через хром
вот ссылка с которой программка не работает https://www.edimdoma.ru/retsepty/609...-klassicheskiy

и сама ошибка
Имя события проблемы: APPCRASH
Имя приложения: Project1.exe
Версия приложения: 1.0.0.0
Отметка времени приложения: 591d2e5b
Имя модуля с ошибкой: Project1.exe
Версия модуля с ошибкой: 1.0.0.0
Отметка времени модуля с ошибкой: 591d2e5b
Код исключения: c0000005
Смещение исключения: 00280043
Версия ОС: 6.1.7601.2.1.0.256.1
Код языка: 1049
Дополнительные сведения 1: 6e9b
Дополнительные сведения 2: 6e9b2908a11fdeac57b414324c93c443
Дополнительные сведения 3: 6927
Дополнительные сведения 4: 6927c94b690cc5d09842633c22b3ddbf

что может быть не так