(TChromium CEF3) Как программно нажать кнопку Ok в появившемся окне JavaScript Alert?

[_Casper_]

Добрый день!

1. TChromium CEF3 Подскажите пожалуйста как программно нажать кнопку (OK) в появившемся окне JavaScript Alert ?

т.е. закрыть окно вызванное например ява скриптом alert('Клик!');

2. Как программно прочитать текст который в окне?

[vipok72]

в этом компоненте можно выполнить js код, если js кодом можно закрыть алерт то норм))

[_Casper_]

Сообщение от vipok72

в этом компоненте можно выполнить js код, если js кодом можно закрыть алерт то норм))

что ты этим хотел сказать?

[_Casper_]

Решение нашёл, кому интересно :

procedure TForm1.Button1Click(Sender: TObject);
begin
  Timer1.Interval := 3000;
  Timer1.Enabled := true;
  showmessage(Datetostr(Time()));
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var h:HWND;
begin
  Timer1.Enabled := false;
  h := FindWindow(nil,PChar('ProjectTest'));
  if H <> 0 then SendMessage(H,WM_SYSCOMMAND,SC_Close,0);
end;

Тему можно закрывать!