| 网站首页 | JAVA文章 | AppServers | Web开发 | 应用开发 | 资源下载 | 论坛
    想学好编程，学好外语很重要  [enadd  2006年12月25日]        
设为首页 加入收藏 联系站长
您现在的位置： 编程笔记网 >> 应用开发 >> delphi >> 文章正文
通过代码调用Windows 屏幕保护程序    热 荐   【字体：小 大】
通过代码调用Windows 屏幕保护程序
作者：不祥    文章来源：－    点击数：    更新时间：2006-10-1

有两种方法:

第一个方法是调用WinAPI 函数 PostMessage(GetDesktopWindow, WM_SYSCOMMAND, SC_SCREENSAVE, 0)

第二个方法是运行一个扩展名是.SCR 的屏幕保护文件。这个方法不可以调用密码保护。

我希望单击一个小程序开始屏幕保护，并调用密码保护（当屏幕保护运行的时候有效地锁定我的桌面），所以生成以下.dpr 文件：

program SaveScrn;

uses
Forms,
Windows,
Messages;

{$R *.RES}
var
b: Bool;
begin
Application.Initialize;
{ 首先检查屏幕保护程序是否存在 }
if (SystemParametersInfo(SPI_GETSCREENSAVEACTIVE, 0, @b, 0)
and (b) then
begin
{ 调用屏幕保护 }
PostMessage(GetDesktopWindow, WM_SYSCOMMAND, SC_SCREENSAVE, 0);
end;
Application.Terminate;
end.

现在运行这个应用程序，桌面将会变得安全。

（出处：www）
文章录入：enadd    责任编辑：enadd 
  • 上一篇文章：

  • 下一篇文章：
    • 【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】
    最新热点 最新推荐 相关文章
  • 交换鼠标的左右键

  • 读入系统文件夹中的路径

  • 文件/流的加密解密方法

  • 刷新桌面

  • Delphi单元测试工具Dunit介绍

  • delphi问题集锦（6问）

  • delphi问题集锦（27问）

  • 移动Windows开始按钮到任务栏…

  • 如何获得硬盘序列号

  • 如何阻止用户移动窗体或改变…

    		•
    　　网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）
    | 设为首页 | 加入收藏 | 联系站长 | 友情链接 | 版权申明 | 管理登录 | 
    Copyright ©2000 - 2005 Enadd.com
    备案序号:辽ICP备06005595号 QQ:1656107
    站长：enadd