通过代码调用Windows屏幕保护程序

减小字体

增大字体作者：佚名来源：本站整理发布时间：2009-03-16 20:06:11

有两种方法:

第一个方法是调用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.

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