Как определить установлен ли screen saver?

Материал из DRKB

Как определить установлен ли screen saver?[править | править код]

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;


Source: Взято с сайта http://www.swissdelphicenter.ch/en/tipsindex.php
ID: 02380