这个是用delphi写的,只供学习参考,没办法我也需要这分过日子!