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

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

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;

Взято с сайта: http://www.swissdelphicenter.ch

Отправить комментарий

Проверка
Антиспам проверка
Image CAPTCHA
...