用Delphi開發(fā)屏幕保護(hù)預(yù)覽程序

2019-11-18 19:00:31

字體：大中小

供稿：網(wǎng)友

用Delphi開發(fā)屏幕保護(hù)預(yù)覽程序
整理編輯：China asp

---- 大家都知道windows 屏幕保護(hù) 程序的作用, 而且新的屏幕保護(hù) 程序越來越漂亮. 如果在win95 的桌面右鍵菜單選屬性, 就彈出顯示器設(shè) 置界面, 有一個(gè) 標(biāo) 簽是設(shè) 置屏幕保護(hù) 程序的.

---- 在該頁的畫面上, 有一個(gè) 顯示器圖案, 如果你選擇win95 所帶的屏幕保護(hù) 程序, 這個(gè) 屏幕保護(hù) 程序就會(huì) 在這個(gè) 小' 顯示器' 上自動(dòng) 運(yùn) 行, 你可以直接看到運(yùn) 行效果. 這功能大大方便了屏幕保護(hù) 程序的選擇, 這就是win95 對屏幕保護(hù) 程序的新增接口: 預(yù) 覽功能.

---- 目前大多數(shù) 新推出的屏幕保護(hù) 程序都支持這個(gè) 接口.

---- 屏幕保護(hù) 程序從它的誕生那時(shí) 起, 在同一時(shí) 刻只能運(yùn) 行一個(gè), 不能多個(gè) 同時(shí) 運(yùn) 行, 然而預(yù) 覽接口的推出, 使同時(shí) 預(yù) 覽多個(gè) 屏幕保護(hù) 程序成為可能, 本文將向讀者介紹如何用Delphi 開發(fā) 這樣一個(gè) 程序.

---- 1. 屏幕保護(hù) 預(yù) 覽接口
---- 屏幕保護(hù) 預(yù) 覽接口的使用很簡單, 這是通過傳給屏幕保護(hù) 程序的命令行參數(shù) 來實(shí) 現(xiàn) 的, 該命令行參數(shù) 格式為:

---- screensaver.exe /p #####

---- 其中##### 為一個(gè) 有效的窗口句柄的10 進(jìn) 制表示.

---- 這個(gè) 窗口我們可以稱之為預(yù) 覽窗口.

---- 實(shí) 際上, 支持預(yù) 覽接口的屏幕保護(hù) 程序將自己的窗口創(chuàng) 建為預(yù) 覽窗口的子窗口來實(shí) 現(xiàn) 預(yù) 覽功能的.

---- 2. 畫面布局
---- 我們這個(gè) 程序的窗口分為 3 部分, 為倒' 品' 字形, 上左部分列出所有可用的屏幕保護(hù) 程序, 上右部分列出所有預(yù) 覽的屏幕保護(hù) 程序, 下面當(dāng) 然是預(yù) 覽窗口了.

---- 用Delphi 實(shí) 現(xiàn) 時(shí), 首先在Form 里放2 個(gè)TPanel 組件, Panel1 對齊方式為頂部對齊,Panel2 為撐滿用戶區(qū), 再在Panel1 中放1 個(gè)TFileListBox 組件和一個(gè)TListBox 組件,FileListBox1 左對齊, ListBox1 撐滿用戶區(qū).

---- 這樣, FileListBox1 為屏幕保護(hù) 列表, ListBox1 為預(yù) 覽列表, Panel2 為預(yù) 覽窗口.

---- 3. 列出屏幕保護(hù) 程序.
---- 將FileListBox1 的Mask 屬性設(shè) 為'*.scr', 這是屏幕保護(hù) 程序的擴(kuò) 展名.

---- 在FormCreate 方法中將FileListBox1.directory 設(shè) 為windows 系統(tǒng) 目錄GetSystemDirectory;

---- 4. 預(yù) 覽屏幕保護(hù) 程序.
---- 在FileListBox1DblClick 方法中運(yùn) 行該屏幕保護(hù) 程序, 并將Panel2 的窗口句柄傳給它.
---- WinExec(pchar(FileListBox1.FileName + ' /p ' + inttostr(Panel2.handle)), SW_Show);

---- 運(yùn) 行程序, 怎么樣? COOL!

---- 5. 增加一些新特性: 隱藏/ 顯示/ 關(guān) 閉.
---- 增加2 個(gè) 函數(shù): 用于更新ListBox1.
function EnumPRoc(
h : HWND ;// handle of child window
l : integer// application-defined value
): boolean;stdcall;
var
buf : array[0..255] of char;
begin
GetWindowText(h, buf, sizeof(buf)- 1);
if iswindowvisible(h) then
Form1.ListBox1.items.add(' ' +strpas(buf) + ' : ' + inttostr(h))
else
Form1.ListBox1.items.add('-' +strpas(buf) + ' : ' + inttostr(h));
Result := true;
end;

procedure TForm1.Fresh1;
begin
ListBox1.clear;
enumChildwindows(Panel2.handle,
TFNWndEnumProc(@enumproc), 0);
end;

---- 增加一個(gè) 彈出菜單Popupmenu1, 3 個(gè) 菜單項(xiàng), 'Show, Hide, Close', 將ListBox1.popupmemu 指向Popupmenu1.
---- Hide 的處理函數(shù) 是:
procedure TForm1.Hide1Click(Sender: TObject);
var
h : integer;
s : string;
begin
if ListBox1.itemindex = -1 then exit;
s := Listbox1.items[ListBox1.itemindex];
h := strtoint(copy(s, pos(':', s) + 1, length(s)));
ShowWindow(h, SW_HIDE);
Fresh1;
end;

Show 的處理函數(shù) 是:
procedure TForm1.Show1Click(Sender: TObject);
var
h : integer;
s : string;
begin
if ListBox1.itemindex = -1 then exit;
s := Listbox1.items[ListBox1.itemindex];
h := strtoint(copy(s, pos(':', s) + 1, length(s)));
ShowWindow(h, SW_SHOW);
Fresh1;
end;

Close 的處理函數(shù) 是:
procedure TForm1.Close1Click(Sender: TObject);
var
h : integer;
s : string;
begin
if ListBox1.itemindex = -1 then exit;
s := Listbox1.items[ListBox1.itemindex];
h := strtoint(copy(s, pos(':', s) + 1, length(s)));
PostMessage(h, WM_QUIT, 0, 0);
Fresh1;
end;

---- 本程序在Delphi 3.0 下調(diào) 試通過, 應(yīng) 該能用Delphi 1.0 / 2.0 編譯.

---- 完整程序如下:
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, FileCtrl, ExtCtrls, Menus;

type
TForm1 = class(TForm)
Panel1: TPanel;
Panel2: TPanel;
FileListBox1: TFileListBox;
ListBox1: TListBox;
PopupMenu1: TPopupMenu;
Hide1: TMenuItem;
Show1: TMenuItem;
Close1: TMenuItem;
procedure FormCreate(Sender: TObject);
procedure FileListBox1DblClick(Sender: TObject);
procedure Hide1Click(Sender: TObject);
procedure Show1Click(Sender: TObject);
procedure Close1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
procedure Fresh1;
end;

var
Form1: TForm1;

implementation

{$R *.DFM}
function EnumProc(
h : HWND ;// handle of child window
l : integer// application-defined value
): boolean;stdcall;
var buf : array[0..255] of char;
begin
GetWindowText(h, buf, sizeof(buf)- 1);
if iswindowvisible(h) then
Form1.ListBox1.items.add(' ' +strpas(buf) + ' : ' + inttostr(h))
else
Form1.ListBox1.items.add('-' +strpas(buf) + ' : ' + inttostr(h));
Result := true;
end;

procedure TForm1.Fresh1;
begin
ListBox1.clear;
enumChildwindows(Panel2.handle, TFNWndEnumProc(@enumproc), 0);
end;

procedure TForm1.FormCreate(Sender: TObject);
var buf : array[0..256] of char;
begin
GetSystemDirectory(buf, sizeof(buf) - 1);
FileListBox1.directory := strpas(buf);
ListBox1.popupmenu := Popupmenu1;
end;

procedure TForm1.FileListBox1DblClick(Sender: TObject);
begin
WinExec(pchar(FileListBox1.FileName + ' /p ' + inttostr(Panel2.handle)), SW_Show);
Fresh1;
end;

procedure TForm1.Hide1Click(Sender: TObject);
var
h : integer;
s : string;
begin
if ListBox1.itemindex = -1 then exit;
s := Listbox1.items[ListBox1.itemindex];
h := strtoint(copy(s, pos(':', s) + 1, length(s)));
ShowWindow(h, SW_HIDE);
Fresh1;
end;

procedure TForm1.Show1Click(Sender: TObject);
var
h : integer;
s : string;
begin
if ListBox1.itemindex = -1 then exit;
s := Listbox1.items[ListBox1.itemindex];
h := strtoint(copy(s, pos(':', s) + 1, length(s)));
ShowWindow(h, SW_SHOW);
Fresh1;
end;

procedure TForm1.Close1Click(Sender: TObject);
var
h : integer;
s : string;
begin
if ListBox1.itemindex = -1 then exit;
s := Listbox1.items[ListBox1.itemindex];
h := strtoint(copy(s, pos(':', s) + 1, length(s)));
PostMessage(h, WM_QUIT, 0, 0);
Fresh1;
end;

end.

Copyright © 上海聚聲計(jì)算機(jī)系統(tǒng)工程有限責(zé)任公司 1999-2000, All Rights Reserved

上一篇："Delphi之完全漢語"終結(jié)版

下一篇：通用Delphi數(shù)據(jù)庫輸入控件DBPanel的實(shí)現(xiàn)