[s0Creator]

первый тогда попробуй так

Код:

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;

    EnableWindow(w, True);

    w := GetWindow(w, gw_hWndNext);
    if w = 0 then
      break;

  end;

end;

второй так

Код:

function WinEnable(WinHandle: HWnd; lParam: LPARAM): Boolean; stdcall;
var
 buff2 : array [0..127] of Char;
begin
  Result:=True;
  GetClassName(WinHandle, buff2, sizeof(buff2));
  if AnsiSameText('WindowsForms10.SysListView32.app3', AnsiString(buff2)) then
    EnableWindow(WinHandle, True);
end;

procedure TForm1.Button6Click(Sender: TObject);
var
  x, w, curent : hwnd;
begin
  x:=FindWindow('WindowsForms10.Window.8.app3', nil);
  EnumChildWindows(x, @WinEnable, 0);
end;