有两种方法:<br><br>第一个方法是调用WinAPI 函数 PostMessage(GetDesktopWindow, WM_SYSCOMMAND, SC_SCREENSAVE, 0)<br><br>第二个方法是运行一个扩展名是.SCR 的屏幕保护文件。这个方法不可以调用密码保护。<br><br>我希望单击一个小程序开始屏幕保护,并调用密码保护(当屏幕保护运行的时候有效地锁定我的桌面),所以生成以下.dpr 文件:<br><br>program SaveScrn;<br><br>uses<br>Forms,<br>Windows,<br>Messages;<br><br>{$R *.RES}<br>var<br>b: Bool;<br>begin<br>Application.Initialize;<br>{ 首先检查屏幕保护程序是否存在 }<br>if (SystemParametersInfo(SPI_GETSCREENSAVEACTIVE, 0, @b, 0)<br>and (b) then<br>begin<br>{ 调用屏幕保护 }<br>PostMessage(GetDesktopWindow, WM_SYSCOMMAND, SC_SCREENSAVE, 0);<br>end;<br>Application.Terminate;<br>end.<br><br>现在运行这个应用程序,桌面将会变得安全。<br>