Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Как определить установлен ли screen saver?

Автор: Poseidon 9.6.2005, 21:46

Код

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;