SendMessage 启动屏幕保护程序

最新推荐文章于 2024-10-02 07:55:04 发布

weixin_30568591

最新推荐文章于 2024-10-02 07:55:04 发布

阅读量101

点赞数

文章标签： c#

原文链接：http://www.cnblogs.com/xe2011/archive/2012/06/03/2532906.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;