Как определить установлен ли screen saver?
Falk0ner, вс, 06/07/2008 - 15:34.
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;
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;
Взято с сайта http://www.swissdelphicenter.ch/en/tipsindex.php
Отправить комментарий