Как определить установлен ли screen saver? |
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::02380
Взято с сайта http://www.swissdelphicenter.ch/en/tipsindex.php