SendMessage 启动屏幕保护程序_2

最新推荐文章于 2024-01-15 13:30:49 发布

weixin_30293135

最新推荐文章于 2024-01-15 13:30:49 发布

阅读量94

点赞数

原文链接：http://www.cnblogs.com/xe2011/archive/2012/06/03/2532897.html

版权

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;