Delphi 获取当前鼠标下的控件内容 主要函数: GetCursorPos://获取鼠标的位置 WindowFromPoint://获取制定point下的handle GetClassName://获取类的名字 function TForm1.GetEditText: string;var  Point: TPoint;  Name: array[0..255] of Char;  Buffer: array[0..1023] of Char;  AHandle: THandle;begin 

近日来,在网上发现关于屏幕取词技术的捷径,搜索很长时间,发现实现方式以VB出现的居多,但是通过Delphi来实现的却好象没有看到,自己参考着VB的相关代码琢磨了一下通过delphi来实现的方式. 其实也差不多,唯一不同的只有一个地方就是取词对象GrabProxy的AdviseGrab这个方法,该方法的参数是一个IXDictGrabSink 的接口类型,在Vb中是AdviseGrab(Me)就可以了,但是在delphi中 则不能简单使用AdviseGrab(self)来,在前面 TForm1 =

1. 缘起 要搞一个作弊软件,需要把屏幕上的试题取下来. 据说针对IE的取词很难,所以也就打消了自己开发的念头,找一找好用的控件. 发现了两个可以用的,一个是金山词霸的XdictGrb.dll文件,一个就是上面的GetWord. 1.1 金山词霸 XdictGrb.dll 这里有C#的例子. C# 的例子似乎不太稳定,取几个词之后就取不到了,不知道卡在哪里了. 而且 C# 转换为 Python 也遇到了困难,主要是不太熟悉COM和Python的相互调用,留着以后解决. 1.2 GetWord 3

这个程序在网上有很多例子,近期要做的项目中有和这个有某些一点点相似的地方,就练练,发现在本机上(Win 7 64位)不能实现其功能,可能原因是API组件太老了吧,毕竟金山大佬公布他的组件是2005年,但是写的程序能在XP/Win 32上跑. 源码下载:http://files.cnblogs.com/chenyongblog/%E5%B1%8F%E5%B9%95%E5%8F%96%E8%AF%8D.zip namespace 屏幕取词 { public partial class Form1 :

最近公司有一个 项目需要实现类似于金山词霸,有道词典等的屏幕取词功能,准确来说是划词功能,网上搜了各种屏幕取词无外乎就两种: A.金山词霸组件法 B.Nhw32.dll法 百度搜到的重复内容真的太多了,自己也google,也没找到比较好的方法,然后只能根据需求硬着头皮自己实现,废话不多说了,先看我实现的原理: 前提条件:文字要能被选择,比如按钮上的文字不能被选择: 原理:定义全局的鼠标钩子,在选择文字结束之后向该窗体发送ctrl+c的命令,然后直接从剪切板中获取: 原理很简单,实现起来也不是很复

取词时候,有道词典给出提示,说要去开启辅助功能,但提示的是在mac 10.8上面怎么操作,在10.9的话,就是以下位置去改了. 补充以下: 在mac机器上,实际上大多数的单词都能从自带的词典中查找到.在mac 10.9中,系统自带的词典的功能更是得到了加强,主要是词典内容多了.使用ctrl+command+d就可以直接翻译英文单词了.

Delphi中使用@取函数地址的问题   例如以下代码:unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs;type  TForm1 = class(TForm)    procedure one();    function two(x,y:integer):integer;  private    { Private declar

C# 根据鼠标坐标取网页内成员坐标.ie 有时候你需要后台获取ie浏览器 鼠标所在位置的元素坐标,然而你使用屏幕坐标是不可行的 所以我们需要把坐标转换成浏览器内坐标 然后再通过elementFromPoint获取网页成员. private void tmrWatcher_Tick(object sender, EventArgs e) { IntPtr hWnd = WindowFromPoint(MousePosition); dynamic document = GetHtmlDocumen

在mac上装了有道词典,发现在Chrome上不能取词,网上也没有搜到合适的解决方案,后来发现解决这个问题很简单,打开有道词典,点击设置, 再点击软件更新,就会发现有chrome取词插件,安装就OK了. 接下来我的chrome出现了这个提示, 这需要点击chrome右上角的,选择工具 —>  扩展程序,然后把下载好的chrome取词插件拖进来,就算安装了. 来自:http://squirrellee.info/?p=165

原文:WPF 获取鼠标屏幕位置.窗口位置.控件位置 public struct POINT { public int X; public int Y; public POINT(int x, int y) { this.X = x; this.Y = y; } } [DllImport("user32.dll")] public static extern bool GetCursorPos(out POINT lpPoint); //e.GetPosition(this); //(e

GetCursorPos函数  获取鼠标的位置 var P: TPoint; begin GetCursorPos(P); //获取鼠标位置 end; SetCursorPos函数 设置鼠标的位置 var x,y:integer; // begin x:=614; y:=282; // SetCursorPos(x,y); // Mouse_Event(MOUSEEVENTF_LEFTDOWN,0,0,0,0); //开始点击 Mouse_Event(MOUSEEVENTF_LEFTUP,0,0

import java.awt.Cursor; import java.awt.Graphics; import java.awt.Graphics2D; import java.awt.Point; import java.awt.event.MouseAdapter; import java.awt.event.MouseEvent; import java.awt.event.MouseMotionListener; import java.awt.geom.Point2D; import

GetWindowRect(tgph, Rect); //获得窗体大小 setcursorpos(Rect.Left + 487, Rect.Top + 274); delay(100); mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0); delay(100); mouse_event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_MOVE, round((Rect.Left + 324) * 65535 / screen.W

Delphi实现对鼠标上下滚动基础消息的截获并处理 前几天有客户提出需求:由于个人PC界面限制,有时候电子图档显示不全,希望通过鼠标上下滚动用来控制电子图档的放大和缩小. 下面通过一个测试Demo来说明一下. 新建一个WinFrm应用程序,添加一个RzMemo.ApplicationEvents控件,如下所示. 添加ApplicationEvents控件的OnMessage事件,关键代码如下: procedure TForm1.ApplicationEvents1Message(var Msg:

如果没有高亮等复杂处理,只需要获取一段文字中选取的字和位置,那么 使用window.getSelection()获取div中选中文字内容及位置 怎么获取textarea中选中文字 则可以满足需求: --------------------------------------------------------------------------------------------高级需求-------------------------------------------------------

打开pdf的编辑——〉首选项——〉一般——〉选项——〉开始——〉只有经过认证的插件,把‘checkbox’里的勾去掉,重启. ★在acrobat reader启动画面里如果没有加载xdict32(工具栏无词霸图标),可能是acrobat目录下原来的xdict32.api版本无效(右键‘属性’无版本信息), 把老的xdict32.api删除,从2003的目录重新拷贝xdict32.api到plug_ins目录,启动acrobat reader后,工具栏有了词霸的图标,即可取词.

Screen.Cursor := crNo;

━━━━━━━━━━━━━━━━━━━━━━━━━━ [strlen]PChar 串专用函数:串长度 procedure TForm1.BitBtn1Click(Sender: TObject); var s: Widestring; begin s := '桂枝香在故国晚秋'; ShowMessage(IntToStr(Length(String(s))));//结果不是8而是16 end;━━━━━━━━━━━━━━━━━━━━━━━━━━如果想得到8: ShowMessage(IntToS

按事件分类,有如下的几种常用类型的钩子: 1)键盘钩子可以监视各种键盘消息. 2)鼠标钩子可以监视各种鼠标消息. 3)外壳钩子可以监视各种Shell事件消息. 4)日志钩子可以记录从系统消息队列中取出的各种事件消息. 5)窗口过程钩子监视所有从系统消息队列发往目标窗口的消息. 安装钩子:SetWindowsHookEx 卸载钩子:UnhookWindowsHookEx 钩子回调函数形式: function GetMsgProc(Code: UINT; lParam: LPARAM; wParam

Windows系统是建立在事件驱动的机制上的,说穿了就是整个系统都是通过消息的传递来实现的.而钩子是Windows系统中非常重要的系统接口,用它能够截获并处理送给其它应用程序的消息,来完毕普通应用程序难以实现的功能.钩子能够监视系统或进程中的各种事件消息,截获发往目标窗体的消息并进行处理.这样,我们就能够在系统中安装自己定义的钩子,监视系统中特定事件的发生,完毕特定的功能,比方截获键盘.鼠标的输入,屏幕取词,日志监视等等.可见,利用钩子能够实现很多特殊而实用的功能.因此,对于高级编程人员来说,掌