[Electronic_Arts]

Спасибо огромное этот код работает отлично

Код:

function WinEnable(WinHandle: HWnd; lParam: LPARAM): Boolean; stdcall;
begin
  Result:=True;
  if IsWindowVisible(WinHandle) 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;

Но оно активирует все что находиться на окне - а как то можно например селать так чтоб оно не трогала кнопки?????