自己常用的两个小工具的Delphi源码



1.超级短小的屏保启动程序 sss(ScreenSaverStarter)

如果要离开电脑一会并希望立即启动屏保，执行这个小程序即可。就一个非常小的 .dpr, 适合Delphi任何版本。



2.系统搜索路径设置程序 ZRPath



　　自家用的一个小小工具，可以方便地修改系统搜索路径，即时生效。



　　如果你是Delphi程序员，发布带运行包的程序时，你还可以用这个小小工具帮你暂时屏蔽 Delphi7.0/6.0 运行环境。



　　另外，这个程序还可以以命令行方式运行，因此，我常在自己用Wise制作的安装程序中使用，以便在安装完成时设置搜索路径并立即生效，在反安装后取消设置的搜索路径。



　　包括从本人程序库中提取的若干常用函数，如获取快捷目录等。附带一个可以聚焦的透明按钮的源码（非本人原创）。

-Their two small tools commonly used in Delphi source code

1. Screensaver to start super-short program sss (ScreenSaverStarter) If you want to leave the computer for a while and hope to immediately start the screen saver, the implementation of this small procedures. On a very small. Dpr, suitable for any version of Delphi.



2. ZRPath system search path setup program



Since the home of a small tool that can easily modify the system search path, with immediate effect.

If you are a Delphi programmer, publishing package with a running program, you can use this little tool to help you a temporary shield Delphi7.0/6.0 operating environment.

In addition, the program also can be run from command line, so I often make their own installer using Wise be used in order to set the search path when the installation is complete, and effective immediately after the abolition of the anti-installed set the search path.

Including extracts from his or her library in a number of commonly used fun