При выполнении WebBrowser1.Navigate(Trim(edit1.Text))
программа выдает сообщение, что весьма раздражает и не удобно каждый раз разрешать выполнение((
Как мне автоматически без участия пользователя всегда разрешать выполнение?
Stack Overflow на русском — это сайт вопросов и ответов для программистов. Присоединяйтесь! Регистрация займёт не больше минуты.
Присоединиться к сообществуПри выполнении WebBrowser1.Navigate(Trim(edit1.Text))
программа выдает сообщение, что весьма раздражает и не удобно каждый раз разрешать выполнение((
Как мне автоматически без участия пользователя всегда разрешать выполнение?
В итоге не нашел адекватного решения на Delphi и решил данный вопрос средствами AuotIt
Вот скрипт, может кому пригодится
$sTitle = 'Предупреждение системы безопасности' ;заголовок окна
$hWin = WinWait($sTitle, '', 5);ждем 5 сек. окно
If Not $hWin Then
MsgBox(16, 'Error', 'Нет окна');если окна нет - сообщение об ошибке и выход
Exit
EndIf
ControlClick($hWin, '', '[CLASS:Button; INSTANCE:1]');клик по кнопке