监控WebBrowser的内容是否发生改变(转)
转自http://blog.sina.com.cn/s/blog_4b3906920100mqt0.html
WebBrowser本身没有提供内容发生改变的事件，需要我们自己去实现。下面是delphi下的实现方法。
首先我们需要实现一个接口：IHTMLChangeSink。
在delphi的MSHTML单元里，delphi已经为我们声明了该接口，如下：
IHTMLChangeSink = interface(IUnknown)
['{3050F64A-98B5-11CF-BB82-00AA00BDCE0B}']
function Notify: HResult; stdcall;
end;
该接口很简单，只有一个方法：Notify.WebBrowser内容的改变就是通过该方法来告诉我们的，即当
WebBrowser的内容发生改变后，WebBrowser会调用该方法。
下面实现IHTMLChageSink接口：
const
WMContentChanged=WM_USER+66;
type
TNwHtmlDocumentNotify=class(TInterfacedObject,IHTMLChangeSink)
private
FHandle:THandle;
function Notify: HResult; stdcall;
constructor create(ProcessHandle:THandle);
end;
上面的WMContentChanged会在实现中用到，请注意。
{ TNwHtmlDocumentNotify }
constructor TNwHtmlDocumentNotify.create(ProcessHandle: THandle);
begin
FHandle:=ProcessHandle;
end;
function TNwHtmlDocumentNotify.Notify: HResult;
begin
SendMessage(FHandle,WMContentChanged,0,0);
Result:=S_OK;
end;
说明：构造函数中的ProcessHandle是要处理消息WMContentChanged的窗口句柄。
当WebBrowser内容发生改变时，我们就给窗口发送一个消息。让窗口去处理它。
下面看如何用：
procedure TMsgWriteForm.AddModifyNotify;
var
MakeContainer2:IMarkupContainer2;
Doc:IHTMLDocument2;
ChangeSkin:IHTMLChangeSink;
ChangeLog:IHTMLChangeLog;
Cokie:Cardinal;
begin
DOC:=FDoc;
if FDoc=nil then
DOc:=(wb1.Document as IHTMLDocument2);
if Doc=nil then
Exit;
Doc.QueryInterface(IMarkupContainer2,MakeContainer2);
ChangeSkin:=TNwHtmlDocumentNotify.create(self.Handle);
MakeContainer2.CreateChangeLog(ChangeSkin,ChangeLog,1,1);//后面两个数中，至少要有一个为大于0的数
MakeContainer2.RegisterForDirtyRange(ChangeSkin,Cokie); //如果没有这句，将不会调用Notify函数
end;
将AddModifyNotify放在WebBrowser的DocumentComplete事件中，就可以了！
（注：这个是我的原创，转载请注意出处。谢谢！）