Delphi开发98屏幕保护预览程序

Delphi开发98屏幕保护预览程序2008-02-02delphifans大家都知道windows屏幕保护程序的作用，而且新的屏幕保护程序越来越漂亮。如果在win98的桌面右键菜单选属性，就弹出显示器设置界面，有一个标签是设置屏幕保护程序的。

在该页的画面上，有一个显示器图案，如果你选择win98所带的屏幕保护程序，这个屏幕保护程序就会在这个小"显示器"上自动运行，你可以直接看到运行效果.这功能大大方便了屏幕保护程序的选择，这就是win98对屏幕保护程序的新增接口:预览功能。

目前大多数新推出的屏幕保护程序都支持这个接口。

屏幕保护程序从它的诞生那时起，在同一时刻只能运行一个，不能多个同时运行，然而预览接口的推出，使同时预览多个屏幕保护程序成为可能，本文将向读者介绍如何用Delphi开发这样一个程序。

1.屏幕保护预览接口

屏幕保护预览接口的使用很简单，这是通过传给屏幕保护程序的命令行参数来实现的，该命令行参数格式为:

screensaver.exe/p#####

其中#####为一个有效的窗口句柄的10进制表示。

这个窗口我们可以称之为预览窗口。

实际上，支持预览接口的屏幕保护程序将自己的窗口创建为预览窗口的子窗口来实现预览功能的。

2.画面布局

我们这个程序的窗口分为3部分，为倒"品"字形，上左部分列出所有可用的屏幕保护程序，上右部分列出所有预览的屏幕保护程序，下面当然是预览窗口了。

用Delphi实现时，首先在Form里放2个TPanel组件，Panel1对齐方式为顶部对齐，Panel2为撑满用户区，再在Panel1中放1个TFileListBox组件和一个TListBox组件，FileListBox1左对齐，ListBox1撑满用户区.

这样，FileListBox1为屏幕保护列表，ListBox1为预览列表，Panel2为预览窗口。