Узнать, включен ли хранитель экрана

Советы » ScreenSaver и ScreenMate » Узнать, включен ли хранитель экрана

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

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com