Узнать, включен ли хранитель экранаDelphi , Графика и Игры , ScreenSaver и ScreenMateУзнать, включен ли хранитель экрана
Оформил: DeeCo function ScreenSaverEnabled: Boolean; var status: Bool; begin SystemParametersInfo(SPI_GETSCREENSAVEACTIVE, 0, @status, 0); Result := status = True; end; procedure TForm1.Button1Click(Sender: TObject); begin if ScreenSaverEnabled then Caption := 'Screensaver is enabled.' else Caption := 'Screensaver is disabled.' end; Статья Узнать, включен ли хранитель экрана раздела Графика и Игры ScreenSaver и ScreenMate может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: ScreenSaver и ScreenMate ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |