9934.txt

关于编程技术技巧的文章

================================================================

                           《编 程 技 术》

                 一份属于广大编程爱好者的电子杂志

               这是一份完全关于探讨编程的免费电子杂志
               您可以任意传播本刊，但必须保持它的完整
              本刊承诺绝不向订户发送任何形式的垃圾邮件！
================================================================
              第34期 99/11/28          本期发送数: 5963 
================================================================

◆本期栏目◆
 *刊首语*
 *特别推荐*
    【编程爱好者讨论组】
    【终·极·指·南】免费电脑网络杂志
 *网友作品*
    Mento Awaker 1.13（萌图提醒器）
    挑战者II(小游戏）
    座位表 
 *技术文档*
    利用Delphi编写屏幕保护程序
    用VFP 3.0绘制统计图形
    在PB中巧用下拉数据窗口
    用VB自动改变控件大小
    加速Visual Basic For Application(VBA)
    VC++程序中用对话框的形式显示HTML文件
    ASP应用中数据库记录的选取与过滤 
 *下载专区*
    PHP3专辑
 *有问必答*

****************************************************************
****************************************************************

◆刊首语◆
    
    在第33期杂志发出后，我才发现其中的《PB中一个类Word打印对话框
的实现》一文曾在第24期刊登过，我真是考试考糊涂了。以后一定下不为
例。另外我新开了一个《编程爱好者讨论组》邮件列表，您可以通过E-mail
和大家讨论编程的问题。具体订阅方法和使用方法见本期特别推荐。    

****************************************************************
****************************************************************

◆特别推荐◆
    
【编程爱好者讨论组】

订阅方法：Email方式进行订阅
订阅：发一封email到 [e-mail]
      在正文里填subscribe。然后您会收到一封确认信，只要再回复这
      封确认信就正式加入了了。
退订：操作方法同上，在正文里填unsubscribe。
    
    当您完成了上面的订阅步骤后，您就已经加入了本讨论组邮件列表，
可以通过Email参加讨论了!您只要向地址 [e-mail]
发送信件，该邮件列表的订阅者都会收到您发出的信件。这样，订阅者之
间就可以互相交流了。
    本邮件列表是为大家讨论编程的问题而设立的。由于您所发的信件所
有的订阅者都能收到，所以请您务必为别的订阅者着想，千万不要发垃圾
邮件或者是长度很长但又无用的信件。谢谢您的合作。 


【终·极·指·南】免费电脑网络杂志
 刊物介绍：
【IT新闻】：搜索IT界重大新闻。
【复活节彩蛋】：向你介绍各种软件、电影及游戏等鲜为人知的小秘密。 
【技巧园地】：奉送流行软件的使用技巧。 
【工具锦囊】：向你介绍最新的好用的软件。 
【网络快递】：各种免费资源快速提供。 
【交流天地】：提供完全自由的主页介绍、交友、问答的空间。   
 本刊物订阅方法:
 在线订阅:
 http://ponlines.my169.com/ 或 http://rondec.126.com/
 E-MAIL订阅:
 [e-mail] 正文为subscribe ultimateguide

****************************************************************
****************************************************************

◆网友作品◆

011.
Mento Awaker 1.13（萌图提醒器）  
作者：陈宝利
Email： [e-mail]
下载地址： http://person.zj.cninfo.net/~yao/download/awaker.zip
软件介绍：
定时提醒，该软件有如下特点：
1.能将图标缩小到“开始”菜单栏的状态条内
2.定时自动排序功能
3.采用对注册表的编程，使用更加可靠
4.能自动记忆上次启动的状态，并于下次启动时还原
5.能判断是否已经运行，自动避免运行多个拷贝
6.能采用时间标题和日期标题，且界面更加美观

010.
1.名 称：挑战者II(小游戏） (VB 6.0 开发)
2.连接地址：http://topgold.163.net/game1.zip 
作者邮箱: [e-mail]
作者主页: http://topgold.163.net

009.
名称：座位表
版本：无
作者：麦杰
e-mail:[e-mail]
主页：无
运行平台：windows95/98
性质：自由软件
下载方法：e-mail联系
功能简介：全国统一的’保险代理人员资格考试‘由广播电视大学系统组
织考试，使用’保险代理人员资格考试管理系统‘处理考员信息及安排考
试工作，但该软件缺少打印座位表的功能，本人用vfp5中文版编写了打印
座位表的小软件，能打印考室座位表，经用广西全区1999第二次’资格考
试‘的数据调试，所打印出来的座位表中的准考证号码及相应的姓名与用’
管理系统‘中的’打印考室人员清单‘中的清单完全一致。


您自己开发过软件吗? 您有自己满意的作品吗? 您希望发布推广您的作品
吗? 本刊竭诚为您提供宣传空间。有意的朋友请把您的作品介绍以及下载
地址、您的网址、联系方法等相关信息发给我（具体格式请参照上面）。
本刊免费为您宣传三期。如有疑问可以与我联系。
我的信箱: [e-mail]  信件主题(subject)填"发布作品"             

****************************************************************
****************************************************************

◆技术文档◆

                  利用Delphi编写屏幕保护程序

                 河北省科学院中试基地   郭涛 

---- 实际上Windows的屏幕保护程序也是一个可执行文件，只不过扩展名
是 .SCR而不是.EXE。但是它也应满足一定的要求，以便提供给控制面板合
适的接口。使得用户可以在显示器的“属性”中选择和配置它。通常它应
满足以下要求： 
---- 1、包含有关于自己的设置； 
---- 2、提供关于自己的描述； 
---- 3、能够区分是激活状态还是配置状态； 
---- 4、不允许自己的拷贝同时运行； 
---- 5、当键盘或鼠标有动作时退出程序。 
---- 其中，“设置”与普通程序一样，只是要注意，只有在控制面板中配
置它时“设置”窗口才会被激活。下面我们主要讨论剩下的四个问题。 
一、首先，建立屏幕保护的主窗口。
---- 在Delphi的菜单上或工具条上选择"New Form"建立一个"Blank Form"
在Object Inspector中将它的属性配置为： 
        BorderIcon      []
        biSystemMenu    False
        biMinimize      False
        biMaximize      False
        BorderStyle     bsNone
        Color           clBlack
        FormStyle       fsStayOnTop
        name            Sav_Form
        Visible         False
从System控件板中选择一个"Timer"控件，设置它的属性为：
        Enabled         Ture
        Interval        2000
        Name            Timer1
        Tag             0
---- 在本例中保护屏幕上显示照片，所以要在窗口上再加一个Image将它的
AuotoSize设为Ture,Visible设为False，双击装入你想显示的图片，本例采
用《计算机世界》1998年49期中介绍的方法，使BMP图片以垂直交错的方法
显示，代码如下：（详情见《计算机世界》1998年49期“Delphi中的图形显
示技巧”）
private
    { Private declarations }
    procedure ShowPic();
...
procedure TSav_Form.ShowPic(Sender: TObject);
var
    newbmp:TBitmap;
    i,j,bmpheight,bmpwidth:integer;
begin
    newbmp:= TBitmap.Create;
    newbmp.Width:=image1.Width;
    newbmp.Height:=image1.Height;
    bmpheight:=image1.Height;
    bmpwidth:=image1.Width;
    i:=0;
    while i< =bmpheight do
    begin
         j:=i;
         while(j >0)do
         begin
  newbmp.Canvas.CopyRect(Rect(0,j-1,bmpwidth,j),image1.
Canvas,Rect(0,bmpheight-i+j-1,bmpwidth,bmpheight-i+j));
 newbmp.Canvas.CopyRect(Rect(0,bmpheight-j,bmpwidth,
bmpheight-j+1),image1.Canvas,Rect(0,i-j,bmpwidth,i-j+1));
              j:=j-2;
        end;
        Sav_Form.Canvas.Draw(20,10,newbmp);
        i:=i+2;
    end;
    newbmp.free;
end;
---- 当然，你也可以采用别的方法显示，或者将屏幕设计成做你想做的任
何模样，只要在定时器的响应时间中调用你的函数就行了。本例，在定时器
的OnTimer消息处理程序中调用ShowPic();
type
  ......
 procedure Timer1Timer(Sender: TObject);

 procedure TSav_Form.Timer1Timer(Sender: TObject);
 begin
        ShowPic;
 end;
---- 剩下的工做就是让设计好的Sav_Form能覆盖整个屏幕，并隐藏鼠标。
点击Sav_Form在Object Inspector中选择Events标签，双击OnActive消息为
它加上消息处理函数FormActivate(Sender: 
TObject);添加代码如下： 
trype
        procedure FormActivate(Sender: TObject);
procedure TSav_Form.FormActivate(Sender: TObject);
begin
        WindowsState:=wsMaximized;      //覆盖屏幕；
        ShowCursor(false);              //隐藏光标；
end;
二、监测键盘和鼠标
---- 保护屏幕作好后，就要监测键盘和鼠标。方法是为Application.OnMessage
事件建立一个句柄，检测中断屏幕保护的条件是否满足。在Sav_Form的Private
中加入以下代码： 
    procedure Detect(var Msg:TMsg;var Handled:boolean);
在implementation中加入以下代码：
procedure TSav_Form.Detect(var Msg:TMsg;
var Handled:boolean);
Var
   Done:boolean;
begin
     Done:=false;
     if （Msg.message=WM_KEYDOWN or
 Msg.message=WM_MOUSEMOVE) then
        done:=true;
     if done then
     begin
          close;
     end;
end;
---- 在为窗口的OnShow事件加上处理函数。在函数中加上以下代码： 
procedure TSav_Form.FormShow(Sender: TObject);
begin
     Application.OnMessage:=Detect;
//     ShowCursor(false);
end;
三、提供关于自己的描述
---- 你可以用Delphi中的{$D text} 定义出现在“显示”“属性”中显示的
你的屏幕保护程序的名称，$D参数直接将text插入可执行文件入口的描述模
块(Description Module) 为了让控制面板认识你的描述，必须加入"SCRNSAVE"。
选择项目文件在{$R *.RES}后加入以下代码： 
        {$D SCRNSAVE My Screen Saver}
"My Screen Saver"将显示在控制面板中的“显示”“属性”中。
四、激活状态和设置状态，以及屏蔽多拷贝的运行
---- Windows在两种条件下运行屏幕保护程序，1、当屏幕保护的时间设置到
时则激活；2、当屏幕保护被设置时激活。为了区分这两种状态Windows在命
令后加了参数， "/s"表示是激活状态，"/c"表示是设置状态。因此，我们的
屏幕保护程序也必须区分参数以便做不同的处理。 
---- 屏幕保护程序和其他程序不同的是，它不允许自己的拷贝同时运行。
hPrevInst是一个Delphi定义的全局变量，它指向当前程序前一个拷贝，如果
该变量为0，则表示当前程序是唯一的实例。我们可以利用这个变量屏蔽多拷
贝的运行。 
---- 以下的代码实现了区分激活状态和设置状态，以及屏蔽多拷贝的运行的
功能。（该代码在项目文件中） 
begin
 if hPrevInst = 0 then 
 begin  //如果当前实例是唯一实例
    if (ParamCount > 0) and
 (UpperCase(ParamStr(1)) = '/S') then
    begin
        //如果是激活状态
       Application.Initialize;
        Application.CreateForm(TScrnFrm, ScrnFrm);
    end else 
    begin
        //可以在这里加入你的配置代码
    end;
    Application.Run;
 end;
end.
五、安装
---- 最后，将程序编译、链接后拷贝到Windows目录下，将程序的扩展名改
为.SCR即可在控制面板中选择"My Screen Saver"了。以上代码均在Delphi 
4.0中编译通过