学步园

unit Unit1;</p> <p>interface</p> <p>uses<br /> Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,<br /> Dialogs, XDICTGRB_TLB;</p> <p>type<br /> TForm1 = class(TForm, IXdictGrabSink)<br /> procedure FormCreate(Sender: TObject);<br /> private<br /> { Private declarations }<br /> public<br /> { Public declarations }<br /> function QueryWord(const WordString: WideString; lCursorX: Integer; lCursorY: Integer;<br /> const SentenceString: WideString; var lLoc: Integer; var lStart: Integer): Integer;safecall;<br /> end;</p> <p>var<br /> Form1: TForm1;</p> <p>implementation</p> <p>{$R *.dfm}</p> <p>procedure TForm1.FormCreate(Sender: TObject);<br /> var<br /> GrabProxy: TGrabProxy;<br /> begin<br /> GrabProxy:= TGrabProxy.Create(nil);<br /> GrabProxy.GrabInterval:= 1;<br /> GrabProxy.GrabMode:= XDictGrabMouseWithCtrl;<br /> GrabProxy.GrabEnabled:= True;<br /> GrabProxy.AdviseGrab(Self);<br /> end;</p> <p>function TForm1.QueryWord(const WordString: WideString; lCursorX,<br /> lCursorY: Integer; const SentenceString: WideString; var lLoc,<br /> lStart: Integer): Integer;<br /> begin<br /> Caption:= SentenceString;<br /> end;</p> <p>end.<br />

1.本例子是根据网上查到一个例子改编的，原例子是C#写的；

2.本例要用到金山词霸2005自带的XdictGrb.dll，网上可以搜一下，csdn下载频道也有下载；

3.取得XdictGrb.dll文件后，用RegSvr32命令注册，然后使用Delphi的 install Component—>Import Typle library—>XdictGrb 1.0 Type library生成TLB文件，直接使用其中的TGrabProxy类即可；