请问在程序中怎么调用屏幕保护程序,使其运行(100分)

  • 主题发起人 主题发起人 xdxycx
  • 开始时间 开始时间
X

xdxycx

Unregistered / Unconfirmed
GUEST, unregistred user!
如题<br>用WINEXEC<br>不行
 
怎么会不行呢?
 
有两种方法:<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>
 
&nbsp;WinExec('c:/windows/system32/ssstars.scr /s',SW_NORMAL);
 
后退
顶部