Examples Delphi

It is very easy to force the Windows screensaver to activate. Simply send windows the right message:

uses
Windows;
begin
//..
SendMessage(Handle, WM_SYSCOMMAND, SC_SCREENSAVE, 0)
end