перехватить сообщение в WebBrowser - Мультимедиа в Delphi

leonid4244 · 07.02.2010, 07:49

здравствуйте
вот html код:
<html>
<head>
<title></title>
<META content=RU http-equiv=Content-language>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=windows-1251">
<script language="Javascript">
function sureclose(){
window.event.returnValue="Вы действительно хотите закончить просмотр сайтов ?";
window.event.cancelBubble=true;
}
</script>
</head>
<frameset onbeforeunload="sureclose()" rows="70,*" frameborder="NO" border="0" framespacing="0" cols="*" >
<frame name="topFrame" scrolling="NO" noresize src="nav.php?id=13126" frameborder="NO" >
<frame name="mainFrame" src="" scrolling="YES">
</frameset>
<noframes>
<body bgcolor="#FFFFFF" text="#000000">

</body>
</noframes>
</html>

мне нужно перехватить сообщение

window.event.returnValue="Вы действительно хотите закончить просмотр сайтов ?";

так чтобы это окно не выскакивало.
или просто запретить это действие

зарание спасибо.

leonid4244 · 07.02.2010, 11:08

Каму интересно вот ответ
var
Form1: TForm1;
bRes:DWord=0;

function ChangeFunc(sDWord:DWord):DWord;
var DLL:DWord;
fH:Pointer;
OP:DWord;
t:DWord;
begin
Result:=0;
DLL:=LoadLibrary('user32.dll');
if DLL<>0 then
begin
fH:=GetProcAddress(DLL,'MessageBoxI ndirectW');
if fH<>nil then
begin
OP:=OpenProcess(PROCESS_ALL_ACCESS, false,GetCurrentProcessID);
if OP<>0 then
begin
ReadProcessMemory(OP,fH,@Result,4,t );
WriteProcessMemory(OP,fH,@sDWord,4, t);
CloseHandle(OP);
end;
end;
FreeLibrary(DLL);
end;
end;

procedure TForm1.WebBrowser1NavigateComplete2 (Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
begin
bRes:=ChangeFunc($c3c031);
end;

07.02.2010, 07:49	#1
leonid4244 Регистрация: 15.10.2009 Сообщений: 9	перехватить сообщение в WebBrowser здравствуйте вот html код: <html> <head> <title></title> <META content=RU http-equiv=Content-language> <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=windows-1251"> <script language="Javascript"> function sureclose(){ window.event.returnValue="Вы действительно хотите закончить просмотр сайтов ?"; window.event.cancelBubble=true; } </script> </head> <frameset onbeforeunload="sureclose()" rows="70," frameborder="NO" border="0" framespacing="0" cols="" > <frame name="topFrame" scrolling="NO" noresize src="nav.php?id=13126" frameborder="NO" > <frame name="mainFrame" src="" scrolling="YES"> </frameset> <noframes> <body bgcolor="#FFFFFF" text="#000000"> </body> </noframes> </html> мне нужно перехватить сообщение window.event.returnValue="Вы действительно хотите закончить просмотр сайтов ?"; так чтобы это окно не выскакивало. или просто запретить это действие зарание спасибо.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Как перехватить ПостЗапрос в WebBrowser(форма multipart)	begginer	Работа с сетью в Delphi	0	02.02.2010 20:52
Перехватить сообщение об ошибке	Insainer	Общие вопросы Delphi	5	25.04.2008 20:39
Как перехватить обращения к принтеру?	Classic	Win Api	2	16.08.2007 11:07
как перехватить открытие чужого приложенияпытаюсь перехватить открытие любого приложе	rpy3uH	Win Api	2	02.12.2006 12:12

07.02.2010, 11:08	#2
leonid4244 Регистрация: 15.10.2009 Сообщений: 9	Каму интересно вот ответ var Form1: TForm1; bRes:DWord=0; function ChangeFunc(sDWord:DWord):DWord; var DLL:DWord; fH:Pointer; OP:DWord; t:DWord; begin Result:=0; DLL:=LoadLibrary('user32.dll'); if DLL<>0 then begin fH:=GetProcAddress(DLL,'MessageBoxI ndirectW'); if fH<>nil then begin OP:=OpenProcess(PROCESS_ALL_ACCESS, false,GetCurrentProcessID); if OP<>0 then begin ReadProcessMemory(OP,fH,@Result,4,t ); WriteProcessMemory(OP,fH,@sDWord,4, t); CloseHandle(OP); end; end; FreeLibrary(DLL); end; end; procedure TForm1.WebBrowser1NavigateComplete2 (Sender: TObject; const pDisp: IDispatch; var URL: OleVariant); begin bRes:=ChangeFunc($c3c031); end;