Узнать, включен ли хранитель экрана |
Previous Top Next |
Code: |
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; |
©Drkb::02384
Взято с сайта: http://www.swissdelphicenter.ch