var
H: HWND;
P: TPoint;
Len: Integer;
begin
H := WindowFromPoint(P); //你得为这个P赋值(可设置钩子取得)
if H<>0 then
begin
begin
Len:=SendMessage(H,WM_GETTEXTLENGTH,0,0);
if Len<>0 then
begin
SetLength(Result,Len+1);
SendMessage(H,WM_GETTEXT,Len+1,Integer(Result)); //这个Result就是那个东东了
end;
end;
end;
end;
H: HWND;
P: TPoint;
Len: Integer;
begin
H := WindowFromPoint(P); //你得为这个P赋值(可设置钩子取得)
if H<>0 then
begin
begin
Len:=SendMessage(H,WM_GETTEXTLENGTH,0,0);
if Len<>0 then
begin
SetLength(Result,Len+1);
SendMessage(H,WM_GETTEXT,Len+1,Integer(Result)); //这个Result就是那个东东了
end;
end;
end;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货