在Delphi中创建一个屏幕保护程序预览

Las*_*azs 0 delphi preview screensaver

我在Delphi 10 Lite中创建了一个屏幕保护程序,使用有关此问题的不同描述,可在网上找到.现在,屏幕保护程序运行良好,缺少一件事:屏幕保护程序设置对话框上的良好工作预览.它怎么能被创造出来?我已经阅读了这个描述:如何在Delphi中进行屏幕保护程序预览? 但我想要一些更具体的东西,也许还有一个例子.我正在使用Windows 7 Ultimate SP1.谢谢.

RRU*_*RUZ 5

Embarcadero网站提供功能齐全的屏幕保护程序示例,其中包括正常执行(运行),预览,密码设置等.试试这篇文章Random Images Screen Saver - a complete screen saver example,源代码可以从这里下载.