※如何删除QQ登录对话框下拉列表中的部分号码√

[Greenberet]

* 怎样才能做到有选择性地删除"QQ用户登录"对话框中"用户号码"下拉列表中的QQ号码。
~假设QQ安装在"C:\OICQ"目录中，当前登录对话框下拉列表中有以下几个QQ用户号码：
编号 用户号码
[1] 123455
[2] 56789
[3] 678901
[4] 7890123
[5] 890127
......等等......
如果只删除编号为(2)和(5)的用户号码(即保留[1]、[3]、[4])应该如何处理呢？
(怎样操作 C:\OICQ\DAT\OICQ2000.CFG 这个文件来达到目的呢?)
请各位高手帮帮忙，非常感谢∪!

[Greenberet]

老兄, 那个软件叫什么名字啊？

[blackfish]

hehe,其实，在dos下的debug就可以操作了

[Greenberet]

用 Delphi 怎么才能做得到呢?

[Greenberet]

~继续加分(目前只允许加到76了)~

请 大 家 帮 忙 解 决 一 下 啊~

~help me or up thanks!~

[Greenberet]

没人看吗？

[安优小青和他的程序生活]

我很早就做了这个小软件，名字叫做《qq登陆号码清除器》
可以，单独删除其中的某一个，也可以全部删除，当然还能增加号码
csdn上的版本需要注册（有功能限制），后来我升级了以下，可是csdn迟迟不给升级。你若是找，可以在http://www.csdn.net/cnshare/soft/10/10358.shtm找到。

你若是想要最新的版本，没有功能限制的，到我的网站上来吧
iuprg.delphibbs.com
或者cn.geocities.com/risheng_dong/download/qqlistdel.zip(直接下载)
这个版本我认为相当稳定 ：））祝你qq聊的放心！

[Linux2001]

呵呵，还记不记得我啊，郝强

[Bellamy]

关注！

[Liusp]

关注

[Greenberet]

这个问题也过年了！

祝大家

春节愉快！

[Greenberet]

怎样用 Delphi 对 QQ 的 CFG 文件进行操作以达到随意增删 OICQ 登录号码呢？

请朋友们帮忙解决一下这个问题，谢谢！

[kimryo]

用记事本打开.cfg文件看看不就结了？其实QQ号是没加密的。可以读。

[Greenberet]

To kimryo(轻*轻*前*轻*重)

.cfg 是可以用记事本打开的，但是不能用记事本编辑，否则QQ就不认了，
用 UltraEdit 等十六进制打开修改才行，不过我现在想知道如何用 Delphi
编程实现，不知道你有没有办法呢？

[kimryo]

22031862 26093090 120878258 4598219 4733385 7204867 7292032 9620238 10438592 20189491 21041345 25713668 27283575 27886601 30157213 37758212 53095174 53702703 86203321 88007533 93313431 123231400 124337349


这是记事本打开的结果。

[我不懂电脑]

kevin_gao(困了！累了！睡觉了！) 的可以呀。

[brallow]

看来来晚了

[Greenberet]

几位朋友都回复过了，但是可能没看清我的问题, QQ 的 .cfg 文件是可以用
记事本打开，但是不能用记事本编辑，否则 QQ 就不认了，用 UltraEdit 等十六进制打开修改则可以，我现在是想知道如何用 Delphi 编程操作 QQ 的 CFG 文件以随意增删 OICQ 登录号码，请各位朋友赐教！

To IUPRG(幕后工作者):
能否给段用 Delphi 操作此文件的例子呢？

来者均有分，解决此问题给300分。谢谢大家！

[PoolD]

呵，你留个E-mail下来，我写个程序发给你好了。

[torble]

这个问题关键是 oicq2000.cfg 数据结构的问题，我把已知的格式说明一下：

type
// 文件头
msgHead = record
SavePassword: Integer; // 4 Byte ，登录方式（1 的话保存密码）
PasswordLen: Integer; // 4 Byte ，密码长度（如果密码长度非零，
// 则后面既是 PasswordLen 长度的密码（
// 已加密）
Password: PChar; // PasswordLen Byte ，可变长度，可自由
// 设定存储方法
UserCount: Integer; // 用户数，编程需要
end;

// 以下就是用户号码数据结构，很简单
UserData = record
NumLen: Integer; // 用户号码长度
Num: PChar; // 长度为 NumLen Byte 的用户号码
end;

先是 msgHead 结构的文件头，然后是 UserData 结构的第一个用户号码，接着是 UserData 结构的第二个用户号码，依此类推。

编程时，用 TFileStream 读入文件，然后根据文件结构进行读写操作。

如： TFileStream.Read(var Buffer; Count: Longint): Longint;
Buffer 可为以上记录结构指针，Count 为 SizeOf(记录结构）;

读取相关信息之后就可以任意操作了，比如把流放入 TStringList 里，随你删。

剩下的自己完成（睡觉喽～）

[webnetmax]

修改*.cfg文件就行了