[Electronic_Arts]

Ага потому что если написать такую строку то при несколько нажатии на Button1 оно закроет и открытые окна и саму прогу...

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
h: HWND;
begin
h := FindWindow('WindowsForms10.Window.8.app3', nil);
 if FindWindow('WindowsForms10.Window.8.app3', nil) <> 0 then
 begin
      PostMessage(h, WM_close, 0, 0);
end;
end;

как быть?