无聊的时候为朋友做教程的时候写的。版本是1.24e语言delphi有基础的应该看的懂吧。