通过FindWindowEx来获取当前运行着的QQ号码列表
发布时间：2014-09-30 16:27:53作者：知识屋
以下为封好的 Delphi 类
type
TGetQQNumber = class
qqlist: TStrings;
private
procedure GetList(ClassName:String);
public
constructor Create();
destructor Destroy(); override;
end;
constructor TGetQQNumber.Create;
begin
qqlist := TStringList.Create;
// Afx:61790000:2 为窗口类名
GetList(Afx:61790000:2);//QQ2006 STD
GetList(Afx:61800000:2);//QQ2007 Beta3
GetList(Afx:61810000:2);//按规律随意添加的,不知道对不对
GetList(Afx:61820000:2);//按规律随意添加的,不知道对不对
GetList(Afx:61830000:2);//按规律随意添加的,不知道对不对
GetList(Afx:61840000:2);//QQ2007 Beta4
end;
destructor TGetQQNumber.Destroy;
begin
qqlist.Free;
end;
procedure TGetQQNumber.GetList(ClassName: String);
var
Wnd: DWord;
Buf: array[0..255] of char;
i: integer;
begin
Wnd := 0;
repeat
Wnd := FindWindowEx(0, Wnd, pchar(ClassName), nil);
GetWindowText(Wnd, Buf, 255);
if buf <> then
begin
for i := 0 to 255 do
begin
if Buf[i] = _ then
begin
Buf[i] := #0;
break;
end;
end;
qqlist.Add(buf);
end;
until (Wnd = 0);
end;
相关知识
-
电脑中accelerate是什么文件夹介绍 accelerate文件夹怎么删除方法技巧
-
电脑中的插件太多如何清理方法步骤 如何对电脑插件进行管理技巧
-
如何阻止恶意软件在电脑上自动安装 怎么删除恶意强制安装的流氓软件
-
电脑运行程序时提示无法找到组件怎么办 电脑经常出现无法找到组件修复方法
-
电脑如何远程控制软件创建局域网 win7电脑局域网远程设置方法技巧
-
电脑突然出现中文乱码了怎么办 Win7系统中文显示乱码的修复方法
-
电脑显示默认网关不可用怎么办 win10总是默认网关不可用频繁掉线解决方法
-
电脑怎么使用虚拟打印机方法步骤 怎么查看并安装虚拟打印机设备教程
-
电脑频繁出现卡顿的现象怎么解决 电脑使用不流畅经常出现卡顿的情况
-
电脑桌面倒过来怎么调回去方法 笔记本电脑屏幕倒立怎么恢复教程
软件推荐
更多 >
-
1
如何申请QQ号，免费申请QQ号的方法【图文详解】2012-06-08
-
2
9位数QQ怎么注册?注册QQ9位数的方法!2015最新注册靓号方法
-
3
教你看别人的QQ密码，但是不准偷QQ哦
-
4
腾讯QQ2012总是提示软件完整性遭到破坏，无法继续使用的解决方法
-
5
qq号码怎么免费申请 免费申请2014qq号码的三种方法步骤
-
6
QQ空间非绿钻添加背景音乐！QQ空间免费添加背景音乐教程！
-
7
手机QQ名片怎么刷赞
-
8
微信聊天记录上传备份与恢复教程
-
9
QQ查找好友如何查找可能认识的人
-
10
群匿名聊天怎么换主题？QQ匿名聊天主题更换方法(图文)
