доброго дня помогите с решением проблемы. Всегда пользовался кодом
Код:
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
что может быть не так