如何取当前鼠标指针图 片

晴天

本人的思路：
.局部变量 场景句柄, 整数型
.局部变量 选入设备场景参数, 整数型
.局部变量 鼠标参数, 鼠标参数
.局部变量 图, 位图
.局部变量 a, 整数型

鼠标参数.cbSize ＝ 20
鼠标参数.坐标.横 ＝ 取鼠标水平位置 ()
鼠标参数.坐标.纵 ＝ 取鼠标垂直位置 ()
场景句柄 ＝ 取设备场景 (图 片框1.取窗口句柄 ())
取当前指针句柄 (鼠标参数)
画图标 (场景句柄, 0, 0, 鼠标参数.hCursor)

解释下思路：获取鼠标的句柄，用画图板这个函数来吧鼠标图标画在图 片框上

-------------------以上完全可以获取动态鼠标------------------------
当然，我不是没事找事做，因为上面的方案，如是图 片框显示在屏幕上，是没有问题，
如果图 片框被隐藏，或者窗口可视为假，那上面的方案就失败了！

还有个思路，就是创建内存场景，但是，我不知道怎么把内存场景的图 片给提取出来啊！擦！！！！！！！

望有人帮忙看下，谢了！  我找了些文章，看不懂.....给大家看看，！

--------------------以下是引用文章--------------------------
本文最早在编程论坛上发表，文章地址：http://programbbs.com/bbs/view12-10736-1.htm，相关文件可以在上述地址的页面中下载。转载时请注明出处。

　　Windows下的鼠标经常会显示出不同的样子以提示当前的操作，所以对于很多程序来说截取鼠标指针当前的图 片并进行分析是很有用处的，下面分析两种截取鼠标指针的图 片的方法并给出一个示范程序。

　　截取鼠标指针的图 片首先要取得鼠标的句柄，然后用API函数DrawIconEx将其绘制在画布上，注意在Windows下鼠标指针（Cursor）和图标（Icon）是没有区别的，利用DrawIconEx的第七个参数istepIfAniCur可以将动态光标的不同帧绘制在画布上，具体的应用可以查看MSDN。

　　取得鼠标的句柄的第一种方法是利用API函数GetCursorInfo，很奇怪在MSDN6.0中查不到这个函数， 无论鼠标是否停留在本进程的窗口上，利用这个函数都可以取得鼠标的信息，示范代码如下：

//方案1
function Fun1: HCURSOR;
var
    hCur : TCursorInfo;
begin
    ZeroMemory(@hCur,sizeof(hCur));
    hCur.cbSize:=SizeOf(hCur);
    GetCursorInfo(hCur);
    result:=hCur.hCursor;
end;

　　取得鼠标的句柄的第二种方法是利用API函数GetCursor，一般情况下，只有当鼠标停留在本进程的窗口上，这个函数才返回正确的鼠标句柄，否则只返回默认的鼠标句柄，也就是小箭的样子，不过可以利用API函数AttachThreadInput将两个进程进行输入绑定，这样当鼠标停留在其它进程的窗口上，就或以返回正确的鼠标句柄，示范代码如下：

//方案2
function Fun2: HCURSOR;
var
    wid : HWND;
    tid : DWORD;
begin
    wid:=GetForegroundWindow; //获取最前面的窗口
    tid:=GetWindowThreadProcessId(wid,nil); //获取窗口所在的进程
    AttachThreadInput(GetCurrentThreadId,tid,true);
    result:=GetCursor;
    AttachThreadInput(GetCurrentThreadId,tid,false);
end;

　　显然第一种方法要优于第二种方法。获得鼠标句柄后的绘制就简单了，绘制后的分析属于图 片分析技术这里就不讨论了。我做的示范程序如下：

　　解决一个问题的方法通常有很多，我只知道上面的两种方法，如果有高手知道其它方法欢迎讨论。


-----------------------引用结束-----------------------------------------

qq974969638

好像不行啊，回收金币重新提问！

heike8521

楼主是想做那个快录的吧！？开源吧！