用金山词霸进行屏幕取词

最新推荐文章于 2018-12-01 23:06:53 发布

dropme

最新推荐文章于 2018-12-01 23:06:53 发布

阅读量3.0k

点赞数

分类专栏： Delphi（原创）文章标签：金山 integer delphi forms library function

本文链接：https://blog.csdn.net/dropme/article/details/4588818

版权

Delphi（原创）专栏收录该内容

12 篇文章 0 订阅

订阅专栏

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

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

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

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