这是灰鸽子的源代码,用delphi写的,有感兴趣的下载看看啦