跟随鼠标获取窗口，控件名称

最新推荐文章于 2023-02-27 09:45:30 发布

qq_41867758

最新推荐文章于 2023-02-27 09:45:30 发布

阅读量844

点赞数

本文链接：https://blog.csdn.net/qq_41867758/article/details/82575883

版权

function GetWndText(hWnd: HWND): String; {返回控件名称}

Var

Ret:LongInt;

mText:PChar;

Buf:Integer;

begin

Ret:=SendMessage(hWnd,WM_GETTEXTLENGTH,0,0)+1;

GetMem(mText,Ret);

try

Buf:=LongInt(mText);

SendMessage(hWnd,WM_GETTEXT,Ret,Buf);

Result:=StrPas(mText);

finally

FreeMem(mText,Ret);

end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
h2: HWND;
pt: TPoint;
arr: array[0..254] of Char;
begin

if GetCursorPos(pt) then {如果能获取点}
begin
h2 := WindowFromPoint(pt); {返回句柄}
form2.edit10.text:=GetWndText(h2); {返回控件名称}
GetClassName(h2, arr, Length(arr)); {获取该句柄窗口的类名}
form2.caption:=arr; {获取该句柄窗口的类名}
form2.edit11.text:=IntToStr(h2); {返回句柄}
end;
end;