有两种方法:
第一个方法是调用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.
现在运行这个应用程序,桌面将会变得安全。
转载于:https://www.cnblogs.com/myamanda/articles/1523940.html