5,392
社区成员
发帖
与我相关
我的任务
分享说不大清楚，还是请高手进来看
有一个程序运行以后在状态栏是没有图标的
缩小到右下角去了
然后鼠标移动过去，是有hint的
现在的问题是怎么根据机器在运行的某个程序的handle来取得这个hint
偶看的api函数头都大了
有拉个大哥把函数告诉偶吧
缩小到右下角去了
然后鼠标移动过去，是有hint的
现在的问题是怎么根据机器在运行的某个程序的handle来取得这个hint
偶看的api函数头都大了
有拉个大哥把函数告诉偶吧
...全文
请发表友善的回复…
发表回复
cdkogh 2001-11-07
- 打赏
- 举报
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;
