SendMessage 启动屏幕保护程序_2

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 发布