用delphi7实现,本人自己做的,很好用~