模仿系统cmd方式的一个delphi源码，还有程序最小化系统托盘的源码。