此代码是完全版,自行修改吧!!!修改前下载Delphi即可