procedure TForm1.Button1Click(Sender: TObject);
var
b: boolean;
begin
SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1, @b, 0);
if b then
SystemParametersInfo(SPI_SCREENSAVERRUNNING, 0, @b, 0);
end;
email: delphi4all@narod.ru
Отключить и включить Ctrl+Alt+Delete |
ОГЛАВЛЕНИЕ HOME MAIL |
Если Windows думает, что работает хранитель экрана (ScreenSaver), то она отключает окно "Завершение работы программы", появляющееся по Ctrl+Alt+Delete. Эта программа сообщает Windows о том, что запущен хранитель экрана (ScreenSaver).
procedure TForm1.Button1Click(Sender: TObject);
var
b: boolean;
begin
SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1, @b, 0);
if b then
SystemParametersInfo(SPI_SCREENSAVERRUNNING, 0, @b, 0);
end;
email: delphi4all@narod.ru | |