SendMessage 启动屏幕保护程序_2
2012-06-03 17:55
155 查看
procedure TForm1.Button1Click(Sender: TObject); var handle:integer; aBool:Boolean; begin SystemParametersInfo(SPI_GETSCREENSAVEACTIVE,0,@aBool,0); if aBool then begin handle:=Findwindow('shell_traywnd',nil); SendMessage(self.handle,$0112,61760,0);//启动屏幕保护程序 exit; end; Messagebox(0,'你没有设定屏幕保护','ScrStart',MB_ICONQUESTION or MB_OK); end;
通过 Wiz 发布
相关文章推荐
- SendMessage 启动屏幕保护程序
- 使用Python 启动windows 屏幕保护程序 及在线程中启动
- 随时关闭显示器或进入屏幕保护的小程序
- Windows屏幕保护程序的制作
- Ubuntu 10.10下安装多种屏幕保护程序
- 程序启动,全屏幕广告盖住statusbar方法
- 写一个DX8的屏幕保护程序-------Alpha 闪烁效果
- ios修改屏幕保护程序的一点想法
- “屏幕保护程序”没有出现“在恢复时使用密码保护”的解决方法
- 世界上最震撼的屏幕保护程序
- 用Visual C#编写屏幕保护程序
- 4.2.2 屏幕保护程序
- 开机不出现屏幕启动程序
- 写一个DX8的屏幕保护程序-------Alpha 闪烁效果
- 用汇编编写屏幕保护程序
- 利用VB编写屏幕保护程序
- 写一个DX8的屏幕保护程序-------Alpha 闪烁效果
- 深入浅出屏幕保护程序编程
- 当一个程序需要阻止屏幕保护程序一段时间时,有以下两种方法
- win7如何设置屏幕保护程序、窗口颜色和外观?