Закрыть вылетающееся окошко ошибки ИЕ, вернее кликнуть на ОК

← →
WebSqlNeederr (2006-04-04 14:31) [0]

Вылетает окошко ошибки ИЕ "Ошибка сценария Internet Explorer" и нужно кликнуть програмно на кнопку ОК в этом окошке. Вот есть код, который просто закрывает это окно, а как кликнуть на кнопку ОК ??

procedure CloseModalIEWin;
var
v,x:Integer;c:String;
begin
c:="Ошибка сценария Internet Explorer";
v:=FindWindow(nil,PChar(c));
if v>0 then
begin
SendMessage(v,wm_close,0,0);
end;
end;

← →
WebSqlNeederr (2006-04-04 14:43) [1]

посмотрел весь список констант аналогичных wm_close но нет ничего подходящего!!! :(

Блин, может кто то знает как обойти эту траблу?

← →
anton773 © (2006-04-04 17:33) [2]

Попробуй задать в свойствах веббровзере SIELENT:=true; тогда не надо программно нажимать OK Сообщений вообще никаких не будет!!

procedure OKButtonClick; var pnt: TPoint; begin GetCursorPos(pnt); SetCursorPos(x,y) //где x,y-позиция кнопки ОК mouse_event(...) //тут где-то есть программное нажатие левой кнопки мыши mouse_event(...) //это для программного отпускания левой кнопки мыши SetCursorPos(pnt.x,pnt.y); end;

Закрыть вылетающееся окошко ошибки ИЕ, вернее кликнуть на ОК Найти похожие ветки