WindowFromPoint怎样可以得到鼠标指向控件的句柄？

[quantum]

WindowFromPoint怎样可以得到鼠标指向控件的句柄？ 是否可以用例子说明？

[wxjh]

直接根据点进行判断举例:
var
p:TPOINT;
....
....
BEGIN
getcursorpos(p); //得到鼠标的位置
windowformpoint(p);
....
end;

[takdick]

var
p:tpoint;
i:hwnd;
procedure tform1.timer1timer(var sender:tobject);
begin
begin
getcursorpos(p);
i:=windowfrompoint(p);
if i <> 0 then
edit1.text:='handle is'+inttostr(i);
end;

[智商无下限]

如果当前程序不活动也可以吗?我的意思是:如果用鼠标点饥其他非本程序的窗体也可以吗?(我也太笨了!怎么说不明白了呢!就是那个意思,是用鼠标点什么都好使吗?)

[40Star]

最好放到Timer中，就很好使

[智商无下限]

哦！可是那就不灵活了！

[ZHENG017]

得到其他窗体用FindWindow().或EnumWindow()...

[智商无下限]

那位高手来给终结一下！最好，带个到那里有通用性的例子：比如可以得到桌面上任意窗体的的句柄！

[智商无下限]

!

[Drate]

使用勾子：
procedure TForm1.Button1Click(Sender: TObject);
var lppe: TProcessEntry32;
found : boolean;
Hand : THandle;
begin
Hand := CreateToolhelp32Snapshot(TH32CS_SNAPALL,0);
found := Process32First(Hand,lppe);
if found then
begin
found := Process32Next(Hand,lppe);
end;
end;
或作用下面的方法：
procedure GetOtherText;
var TextLen: Integer;
TextStr: PChar;
PassHandle1,PassHandle:Hwnd;
PointPos: TPoint;
begin
try
GetCursorPos(PointPos);
PassHandle:=WindowFromPoint(PointPos);
if PassHandle=NULL then exit;
TextLen:=GetWindowTextLength(PassHandle)+1; //得到名字长度，并将长度加1
if TextLen <= 1 then exit;
GetMem(TextStr, 255);
try
SendMessage(PassHandle, WM_GETTEXT, 255, Longint(TextStr));
Label1.Caption := (TextStr);
finally
FreeMem(TextStr);
end;
except
end;
end;

[智商无下限]

麻烦一下：用 TProcessEntry32 的引用什么单元呀？
下面的那段代码应该写在什么事件中呀？
还有：他是如何保证鼠标点击了其他窗体，而本程序还能继续运行的呀？（说得有些不明白，就是那个意思）

[xzgyb]

unit FindWindowFrm;

interface

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

type
TMainForm = class(TForm)
Label1: TLabel;
Label2: TLabel;
lblCaption: TLabel;
lblClass: TLabel;
btnFind: TButton;
procedure btnFindMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure btnFindMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure btnFindMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
bIsDown: Boolean;
hOldWindow: THandle;
public
{ Public declarations }
end;

var
MainForm: TMainForm;

implementation

{$R *.dfm}

procedure TMainForm.btnFindMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
bIsDown := True;
end;

procedure TMainForm.btnFindMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
bIsDown := False;
if hOldWindow <> 0 then
begin
InvalidateRect(hOldWindow, nil, True);
hOldWindow := 0;
end;
end;

procedure TMainForm.btnFindMouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
var
szClassName: array[0..255] of Char;
szCaption: array[0..255] of Char;
hCurWindow, hWindowDC: THandle;
rc: TRect;
CurPt: TPoint;
begin
if bIsDown then
begin
GetCursorPos(CurPt);
hCurWindow := WindowFromPoint(CurPt);
if hCurWindow <> 0 then
begin
GetClassName(hCurWindow, szClassName, 255);
GetWindowText(hCurWindow, szCaption, 255);

if szCaption = '' then
szCaption := '无标题';
lblCaption.Caption := szCaption;
lblClass.Caption := szClassName;

if (hOldWindow <> 0) and (hCurWindow <> hOldWindow) then
InvalidateRect(hOldWindow, nil, True);
hWindowDC := GetDC(hCurWindow);
Windows.GetClientRect(hCurWindow, rc);
FrameRect(hWindowDC, rc, Canvas.Brush.Handle);

hOldWindow := hCurWindow;
ReleaseDC(hCurWindow, hWindowDC);
end;
end;
end;

procedure TMainForm.FormCreate(Sender: TObject);
begin
Canvas.Brush.Color := clRed;
end;

end.

[ypyRock]

今天用 WindowFromPoint 函数，MSDN上说可以找回指定坐标下的窗口句柄，但磁盘共享属性页里的“共享名”等static、edit的句柄却找不到，为什么？？？
用SPY++来找有时可以，有时也找不到，好奇怪！！！

[shujian]

1.如果是focus停留一个控件上,能得到它的handle吗?
2.能否得到一个应用程序上所有控件的handle吗?