Форум программистов [Powered by Invision Power Board]

Цитата(Агрох @ 13.12.2013, 09:04

)

установить параметр TWebBrouser.Silent = true

Цитата

Диалоговые окна alert (а также confirm и prompt) обладают некоторыми странными свойствами.

Они синхронны в том смысле, что выполнение скрипта, вызвавшего этот диалог, замораживается до закрытия диалога. Скрипт ожидает завершения функции alert(), прежде чем продолжить выполнение.

Однако некоторые браузеры позволяют производить обработку событий до тех пор, пока диалог виден на экране и ожидает пользовательских действий. Это означает, что пока один скрипт заморожен, ожидая конца выполнения функции alert, другая функция может быть выполнена в процессе обработки другого события.

События пользовательского интерфейса, такие как mouseup и click, не будут возникать в момент исполнения alert, поскольку диалог является модальным и перехватывает весь пользовательский ввод, однако не-пользовательские события, такие как загрузка страницы, отложенный код и обработчики результата асинхронных запросов XMLHttpRequest, могут возникнуть в это время.

Код


//-------------------закрытие--confirm------------------

function EnumWindowsProc(hWindow : hWnd;lParam  : LongInt) : Bool
{$IFDEF Win32}
stdcall;
{$ELSE} ;
export;
{$ENDIF}
var   lpBuffer : PChar;
WindowCaptionFound : bool;
ClassNameFound : bool;
begin
GetMem(lpBuffer, 255);
Result := True;
WindowCaptionFound := False;
ClassNameFound := False;
try
if GetWindowText(hWindow, lpBuffer, 255) > 0 then
if Pos(PFindWindowStruct(lParam).Caption, StrPas(lpBuffer)) > 0
then WindowCaptionFound := true;
if PFindWindowStruct(lParam).ClassName = '' then
ClassNameFound := True else         
if GetClassName(hWindow, lpBuffer, 255) > 0 then
if Pos(PFindWindowStruct(lParam).ClassName, StrPas(lpBuffer)) > 0 then
ClassNameFound := True;
if (WindowCaptionFound and ClassNameFound) then
begin
 PFindWindowStruct(lParam).WindowHandle := hWindow;
 Result := False;
end;
finally
 FreeMem(lpBuffer, sizeof(lpBuffer^));
end;
end;


function FindAWindow(Caption, ClassName : string) : THandle;
var   WindowInfo : TFindWindowStruct;
begin
 with WindowInfo do
begin
 Caption := 'Сообщение с веб-страницы';
 ClassName := '32770';
 WindowHandle := 0;
 EnumWindows(@EnumWindowsProc, LongInt(@WindowInfo));
 FindAWindow := WindowHandle;
end;
end;

procedure SimulateKeystroke(Key : byte; extra : DWORD);
begin
        keybd_event(Key,extra,0,0);
        keybd_event(Key,extra,KEYEVENTF_KEYUP,0);
end;

procedure TSC.control(Sender: TObject);
var   TheWindowHandle : THandle;
begin   TheWindowHandle := FindAWindow('Сообщение с веб-страницы', '32770');
 if TheWindowHandle = 0 then
 exit else
 BringWindowToTop(TheWindowHandle);
 SimulateKeystroke(VK_RETURN, 0);
end;

//-------------------END---закрытие--confirm--------