| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Закрыть вылетающееся окошко ошибки ИЕ, вернее кликнуть на ОК
WebSqlNeederr © (2006-04-04 14:31:00)Вылетает окошко ошибки ИЕ "Ошибка сценария 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;
kernel (2006-04-10 17:10:00) [1]
procedure OKButtonClick;
var
pnt: TPoint;
begin
GetCursorPos(pnt);
SetCursorPos(x,y) //где x,y-позиция кнопки ОК
mouse_event(...) //тут где-то есть программное нажатие левой кнопки мыши
mouse_event(...) //это для программного отпускания левой кнопки мыши
SetCursorPos(pnt.x,pnt.y);
end;
anton773 (2006-04-04 17:33:00) [2]Попробуй задать в свойствах веббровзере SIELENT:=true; тогда не надо программно нажимать OK Сообщений вообще никаких не будет!!
WebSqlNeederr (2006-04-04 14:43:00) [3]посмотрел весь список констант аналогичных wm_close но нет ничего подходящего!!! :(
Блин, может кто то знает как обойти эту траблу?
| |
