delphi中使用词霸2005的动态库XdictGrb.dll实现屏幕取词

     近日来，在网上发现关于屏幕取词技术的捷径，搜索很长时间，发现实现方式以VB出现的居多，但是通过Delphi来实现的却好象没有看到，自己参考着VB的相关代码琢磨了一下通过delphi来实现的方式。

     其实也差不多，唯一不同的只有一个地方就是取词对象GrabProxy的AdviseGrab这个方法，该方法的参数是一个IXDictGrabSink的接口类型，在Vb中是AdviseGrab(Me)就可以了，但是在delphi中则不能简单使用AdviseGrab(self)来，在前面TForm1 = class(TForm)的这个Form类声明必须在继承一个接口才行，所以应该改成 TForm1 = class(TForm,IXDictGrabSink)，然后实现IxDictGrabSink接口的方法QueryWord，该方法就是用来取词的。
function QueryWord(const WordString: WideString; lCursorX: Integer; lCursorY: Integer;
         const SentenceString: WideString; var lLoc: Integer; var lStart: Integer): Integer;safecall;

此时你就可以通过类似于Vb中来进行指定了，AdviseGrab(self)就将接口指向了他自己。

但此之前，你必须先得到XDICTGRB_TLB单元，你可以通过delphi的
Project---->Import Type Library..来把该动态库引用进来，然后创建单元，或是简单的，你直接把他创建成一可用的控件。
然后在窗体中调用。

当成控件来使用如下：

   直接拖到窗体上，然后将窗体