社区
Delphi
帖子详情
高手进来看一看,在线等???
newstar2002
2003-04-29 07:38:05
如何得到qq登录窗口的句柄
...全文
21
5
打赏
收藏
高手进来看一看,在线等???
如何得到qq登录窗口的句柄
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
5 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
tpmao
2003-04-29
打赏
举报
回复
呵呵,向楼主学习!1!!!!呵呵,向楼主学习!1!!!!呵呵,向楼主学习!1!!!!呵呵,向楼主学习!1!!!!呵呵,向楼主学习!1!!!!呵呵,向楼主学习!1!!!!
shuixin13
2003-04-29
打赏
举报
回复
上面的例子是通过鼠标坐标点来获取鼠标下的窗体的,
另一个办法是通过类名查找,
在你的另一个帖子中我已给出
newstar2002
2003-04-29
打赏
举报
回复
thank you everybody
myling
2003-04-29
打赏
举报
回复
这个不会,帮你up 吧
Storm2008
2003-04-29
打赏
举报
回复
WinAPI编程关闭QQ登录窗体 DavidLove(原作)
关键字 API 系统编程 定时器 QQ
记得在上学的时候,自己一人买了台机器,可是,其他同学总会“抢”我的电脑上QQ聊天,于是自己编了个小程序,只要这个程序运行,则别的同学一打开QQ的登录如果“把鼠标放到登录窗体”的话,窗体自动关闭!其实这个功能用Delphi或者C++ Builder来实现是很简单的:以下我用Delphi原代码来说明。
在Delphi中新建一个Project1,在Form1上添加一个Timer,设置Interval为100ms,然后编写下面的代码即可:
procedure TForm1.Timer1Timer(Sender: TObject);
var
handle,hchild1,hchild2:THandle;
point:TPoint;
temp:array[0..255] of char;
begin
://取得当前鼠标的位置
GetCursorPos(point);
//取得当前鼠标所在窗体的句柄
handle:=WindowFromPoint(point);
GetClassName(handle,temp,256);
//#32770是对话框的类名,QQ窗体的类名就是#32770
if temp='#32770' then
begin
//为了确保是QQ登陆窗体,再检查有没有“登陆”和“注册向导”两个按扭
hchild1:=FindWindowEx(handle,0,'Button','登录');
hchild2:=FindWindowEx(handle,0,'Button','注册向导');
if (hchild1<>0) and (hchild2<>0) then
SendMessage(handle,WM_CLOSE,0,0);
end;
end;
呵呵! 很简单吧!要注意的是,QQ窗体的“QQ用户登陆”这个标题是画上去的,不能简单的用FindWindow(窗体句柄,“QQ用户登陆”)来判断。
Web前端从初级到
高手
之路
本套课程分为UI设计基础课程、Web前端通用代码与UI交互实现、移动端Web前端与UI实现三个大章节,课程讲述UI设计、Flash、交互设计、HTML5、CSS3、JavaScript等web前端技术。凡是购买本套课程的学员,可以加QQ群: 152364681,专业讲师进行
在线
答疑与指导,学不懂有疑问,随时问,永久服务,并赠送海量web前端练习素材,名师一路陪伴,让学员真正成为一名优秀的web前端工程师。
什么叫电脑
高手
,
进来
看看?
电脑盲说: 很久以前,那还是我用win98的时候有次我系统崩溃了,因为我是电脑白痴,我朋友给我介绍了一个
高手
来帮我修电脑。 他看了一下电脑,问我有没有98的盘,我说没有。 他想了一下,叫我把固定电话拿给他,我想修电脑要电话干什么,但人家是
高手
,我也不好说什么,就把电话拔下来给他了。 他把电话线空着的一头接在电脑的一个插孔内,然后进入了dos,然后就开始在电话上不停的按着键
盈通rx580游戏
高手
bios_RX 5700 XT D6 游戏
高手
测评:女装大佬重捶出击!
文 | 林德琛一直以来,说到显卡外观,大家首先会想到甚么?傻大黑粗?霸气侧露?肌肉跑车?但无论如何,都不会是:「好可爱!好清新!好脱俗!」面对着这些千遍一律的显卡皮囊,曾几何时,我们也会感叹,「属于我们猛男的显卡在哪里?」。数个月前,终于有一家公司听见了猛男们的要求。今天我们要来看看的这张显卡,正正是这样的一张「为猛男而设」的存在。先生们女士们,请让我向你们介绍,来自盈通的女装肥肉肌肉猛...
【面试普通人VS
高手
系列】什么是服务网格?
今天继续来分享一个有趣的面试题,“什么是服务网格”? 服务网格这个概念出来很久了,从2017年被提出来,到2018年正式爆发,很多云厂商和互联网企业都在纷纷向服务网格靠拢。像蚂蚁集团、美团、百度、网易等一线互联网公司,都有服务网格的落地应用。 在我看来呢,服务网格是微服务架构的更进一步升级,它的核心目的是实现网络通信与业务逻辑的分离,使得开发人员更加专注在业务的实现上。 那么基于这个问题,我们来看看普通人和
高手
的回答。 普通人 嗯? 内心戏:服务网格?服务网格是什么东西? 嗯, 很抱歉,这个问题我不是很.
outlook 附件修改问题,请内行人
进来
看看!!!
outlook 附件修改问题,请内行人
进来
看看!!! 楼主janglu(一网情深)2005-06-16 07:39:21 在 Windows专区 / Windows NT/2000/XP/2003 提问 人家发给我一个带有附件的邮件,我直接打开附件修改保存之后再回复,但对方收到的还是原文件。这个怎么回事?我修改附件是保存了的,怎么回没有呢?请
高手
指点,谢谢!! 问题点数:40、回复次数:
Delphi
5,391
社区成员
262,736
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章