DBR Delphi-Ecke

// Hiermit kann man abfragen ob der Bildschirmschoner eingeschaltet
// ist, und nach wieviel Minuten er aktiv wird.

// Getestet mit D4 unter WinME

procedure TForm1.Button1Click(Sender: TObject); 
var 
  sec: integer; 
  an: boolean; 
begin 
  systemparametersinfo(SPI_GETSCREENSAVEACTIVE, 0, @an, 0); 
  if an then begin 
    systemparametersinfo(SPI_GETSCREENSAVETIMEOUT, 0, @sec, 0); 
    showmessage('Bildschirmschoner-Wartezeit = ' + inttostr(sec div 60) + 
      ' Minuten'); 
  end else 
    showmessage('Bildschirmschoner ist abgeschaltet'); 
end;