此源码,有Delphi编写,完美支持D2009,如您认为代码有提高之处,欢迎与我交流联系,QQ18256390.