用Delphi开发屏幕保护预览程序.doc

用Delphi开发屏幕保护预览程序 大家都知道windows 屏幕保护程序的作用，而且新的屏幕保护程 序越来越漂 亮.如果在win95 的桌面右键菜单选属性，就弹出显示器设置界面， 有 个标签是 设置屏幕保护程序的. 在该页的画面上，有一个显示器图案，如果你选择win95 所带的 屏幕保护程序， 这个屏幕保护程序就会在这个小显示器上自动运行，你可以直 接看到运行 效果.这功能大大方便了屏幕保护程序的选择，这就是win95 对屏幕 保护程序的 新 曾接口:预览功能 目前大多数新推出的屏幕保护程序都支持这个接口. 屏幕保护程序从它的诞生那时起，在同 时刻只能运行 个， 不能多个同 时运行，然而预览接口的推出，使同时预览多个屏幕保护程序成 为可能，本文 将向读者介绍如何用De1phi 开发这样 个程序 1.屏幕保护预览接口 屏幕保护预览接口的使用很简单，这是通过传给屏幕保护程 序的命令行 参数来实现的，该命令行参数格式为. screensaver. exe /p ##### 其中#####为 个有效的窗口句柄的10 进制表示 这个窗口我们可以称之为预览窗口. 实际上，支持预览接口的屏幕保护程序将自己的窗口创建为 预览窗口的 子窗口来实现预览功能的. 2. 画面布局 我们这个程序的窗口分为 3 部分，为倒品字形，上左部分列 出所有可用的屏 幕保护程序，上右部分列出所有预览的屏幕保护程序，下面当然 是预览窗口 了. 用Delphi 实现时，首先在Form 里放2 个TPanel 组件，Panell 对齐方式为 顶部对齐，Pane12 为 撑满用户区，再在Panell 中放1 个TFileListBox 组件和 个TListBox 组 件，FileListBoxl 左对齐， ListBoxl 撑满用户区. 这样，FileListBoxl 为屏幕保护列表，ListBoxl 为预览列表，Pane12 为 预览窗口. 3. 列出屏幕保护程序. 将 FileListBoxl 的Mask 属性设为*.SCy 这是屏幕保护程序的扩展 名. 在FormCreate 方法中将FileListBoxl.directory 设为windows 系统目录 GetSystemDirectory; 4. 预览屏幕保护程序. 在FileListBoxlDblClick 方法中运行该屏幕保护程序，并将Pane12 的 窗口句柄传给它. WinExec(pchar(FileListBoxl.FileName + /p + inttostr(Pane12.handle)) ， SW Show) ; 运行程序，怎么样? COOL! 5. 增加 些新特性:隐藏/显示/关闭. 增加2 个函数:用于更新ListBoxl. function EnumProc( h HWND ;// handle of child window 1 integer// application-defined value ); boolean;stdcall var buf array[O. .255J of char; begin GetWindowText (h， buf ， sizeof (buf) _ 1); if iswindowvisible (h) then Forml.ListBox l.i tems. add ( ， +strpas (buf) + ， + inttostr (h)) else Forml.ListBox l.i tems. add (_，+strpas (buf) + ，+ inttostr (h)) ; Resul t 二 true; end; procedure TForml. Freshl; begin ListBox l.clear enumChildwindows(Pane12. handle， TFNWndEnumProc (晤enumproc) ， 0); end; 增加 个弹出菜单Popupmenu1， 3 个菜单项，Show，Hi巾 C1ose 将 ListBox1.popupmemu 指向 Popupmenu1 Hide 的处理函数是· procedure TForml. HidelClick(Sender: TObject): var h integer; s string; begin if ListBox l.itemindex 二 1 then exit S 二 Listbox l.items[ListBox l.itemindexJ h 二 strtoint