Delphi得到本机运行的QQ号码，QQ号捕获程序，一个很早的Delphi程序了，不知现在还能用不，运行在Cmd控制台，如效果截图所示。