[Electronic_Arts]

А тут обычная проблема не хочет оно определять компонент WindowsForms10.SysListView32.app3 - незнаю почему...

Код:

procedure TForm1.Button6Click(Sender: TObject);
var
  x, w, curent : hwnd;
begin
  x:=FindWindow('WindowsForms10.Window.8.app3', nil);
  w := 0;
  while true do
  begin
    w:=FindWindowEx(x, w, 'WindowsForms10.SysListView32.app3', nil) ;
    if w = 0 then
      break;
    //edit1.Text:=trim(copy(IntToStr(w), 0, 9));
    if IsWindowVisible(w) then 
      EnableWindow(w, True);
  end;
end;