procedure LauchScreenSaver;begin Windows.PostMessage(Windows.GetDesktopWindow,WM_SYSCOMMAND,SC_SCREENSAVE,0);end;