如何得到系统中当前光标所在位置的窗口句柄？就是用户正在输入东西的那个窗口

[karl]

如何得到系统中当前光标所在位置的窗口句柄？
就是用户正在输入东西的那个窗口

[karl]

倒~~~
呵呵...

[立志做一个佳娃~]

你激活也是得移动鼠标位置吧，，

[karl]

但是我激活后鼠标可能移动到别的窗口上方，但还是使用的那个激活的窗口

[wxjh]

procedure TForm1.Timer1Timer(Sender: TObject);
var
cursor_postion:tpoint;
handle:hwnd;
class_name:pchar;
intResult:integer;
strClassName:string;
begin
Timer1.Enabled :=false;
getcursorpos(cursor_postion);
handle:=windowfrompoint(cursor_postion);
if handle<>0 then
begin
GetMem(class_name,256);
intResult:=getclassname(handle,class_name,256);
//showmessage(inttostr(intResult));//判断是否得到类型
form1.Memo1.Lines.Add(Trim(string(class_name)));
FreeMem(Class_Name);
end;
timer1.Enabled :=true;
end;

[wxjh]

呵呵

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Label1: TLabel;
CheckBox1: TCheckBox;
RadioButton1: TRadioButton;
Timer1: TTimer;
Memo1: TMemo;
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Timer1Timer(Sender: TObject);
var
cursor_postion:tpoint;
handle:hwnd;
class_name:pchar;
intResult:integer;
strClassName:string;
begin
Timer1.Enabled :=false;
getcursorpos(cursor_postion);
handle:=windowfrompoint(cursor_postion);
if handle<>0 then
begin
GetMem(class_name,256);
intResult:=getclassname(handle,class_name,256);
//showmessage(inttostr(intResult));//判断是否得到类型
form1.Memo1.Lines.Add(Trim(string(class_name)));
FreeMem(Class_Name);
end;
timer1.Enabled :=true;
end;

end.

[wxjh]

要么就是我理解错了，如果错了，那么就是要使用hook了，很简单的

[立志做一个佳娃~]

windowfrompoint

这个函数

分太好得了，

[立志做一个佳娃~]

windowfrompoint

这个函数

分太好得

[立志做一个佳娃~]

HWND WindowFromPoint(

POINT Point // structure with point
);

返回当前光标位置的控件句柄



BOOL GetCursorPos(

LPPOINT lpPoint // address of structure for cursor position
);

这个函数返回前前光标位置，，
把GetCursorPos返回值传入windowfrompoint参数即可

[karl]

别急！！
如何得到系统中当前光标所在位置？
HWND WindowFromPoint(
POINT Point // point
);

[ghyghostII]

HWND WindowFromPoint(

POINT Point // structure with point
);

返回当前光标位置的控件句柄



BOOL GetCursorPos(

LPPOINT lpPoint // address of structure for cursor position
);

这个函数返回前前光标位置，，
把GetCursorPos返回值传入windowfrompoint参数即可

[naughtyboy]

得到光标的位置用GetCaretPos
然后调用WindowFromPoint
没必要使用hook，用个timer或者后台线程就足够了

[sixgj]

呵呵。

[lwluser]

function GetSursorPos(
lpPoint:LPPOINT //指向鼠标位置的指针
);BOOL;stdcall;
如果上面的函数执行成功,返回一个非零的值,并将鼠标位置存在lpPoint中,
用上面的函数取得鼠标位置后,用WindowFromPoint函数通过鼠标坐标取得
该点的窗口句柄:
function WindowFromPoint(
Point:TPoint //TPoint结构,存着鼠标坐标点
)HWND;stdcall;
如果WindowFromPoint执行成功,返回窗口句柄,否则返回NULL,注意此函数不能
取得隐藏的或处于不活动状态的窗体,即使这个坐标点就处于其窗口内,要进行无限
搜索,用ChlidWindowFromPoint函数:
function ChlidWinfowFromPoint(
hWndParent:HWND; //父窗口句柄
Point:TPoint; //坐标点
)HWND;stdcall
举例:
1.创建一个新的应用程序;
2.往Form1中加入一个Memo1和一个Timer1;

procedure TForm1.Timer1Timer(Sender:TObject);
var
aClassName,aWndText:array[0..254] of char;
hWnd,hWndOwer:hWnd; //等于hWndOwer:THandle
pos:TPoint;
begin
//取得鼠标位置
GetCursorPos(pos);
//根据鼠标位置得到它所在的窗体句柄
hWnd:=WindowFromPoint(pos);
//由窗口句柄得到窗口类名和标题
GetClassName(hWnd,@aClassName,255);
GetWindowText(hWnd,@aWndText,255);
//显示
with Memo1.Lines do
begin
Clear;
Add('窗体句柄:'+IntToStr(hWnd));
Add('窗体类名:'+aClassName);
Add('窗体标题:'+aWndText);
end;
//由窗口句柄得到父窗体
hWndOwer:=GetWindow(hWnd,GW_OWNER);
GetClassName(hWndOwer,@aClassName,255);
GetWindowText(hWndOwer,@aWndText,255);
with Memo1.Lines do
begin
Add('父窗口句柄:'+IntToStr(hWndOwer));
Add('父窗口类名:'+aClassName);
Add('父窗口标题:'+aWndText);
end;
end;

3.往Form1中加入一个Button1;
procedure TForm1.Button1Click(Sender:TObject);
begin
Timer1.Enable:=not Timer1.Enable;
if Timer1.Enable then
Button1.Caption:='停止'
else
Button1.Caption:='开始';
end;

[lwluser]

晕,,看错了,,你说的是光标,,对不起..我以为是鼠标,,
不过也没事,,把鼠标移到光标所在的那个窗口就行了,,, ：）
:):(

[otherface]

关注光标版.
楼主的意思就是得到当前的活动窗口用哪个函数.

[doudouding]

to楼上
如果楼主的意思就是得到当前的活动窗口用哪个函数，可用GetForegroundWindow获得前台窗口句柄

[naughtyboy]

GetCaretPos

[karl]

To doudouding()
GetForegroundWindow函数只能返回当前应用程序的的句柄，我想要的是能不能得到当前控件的句柄，就是具体一个输入框，按钮。。。等等控件

[karl]

AttachThreadInput(GetcurrentThreadID,GetWindowThreadProcessID(GetForegroundWindow,nil),True)
GetFocus;
完成！！！