Скачать: CL | DM;

О блокировке заставки   Найти похожие ветки 

← →
ivlex ©   (2003-01-01 04:06) [0]

Как мне из моей программы запустить Nero так, чтобы когда Nero запущен, не запускалась заставка, не выключался монитор и не активировался режим ожидания? Заранее благодарен.

---

← →
Yegor Derevenets   (2003-01-01 10:05) [1]

Можно попробовать сделать эмитацию нажатия клавиши/перемещения мыши. За результат не отвечу.

---

← →
mukha ©   (2003-01-01 11:56) [2]

Из форума (не тестировано) просто выдержка:

Walker © (27.11.02 13:01)
Спасибо всем... я тут немного помучался, вот что у меня получилось:

Предлагаю свой Unit для решения проблемы :)

unit ScreenSaveAtivater;

interface

procedure EnableScreenSave;
procedure DisableScreenSave;


implementation
uses
Windows;

var
ScreenSaverEnabled: Boolean;
ScreenSaveTimeOut: Integer;

procedure DisableScreenSaver;
begin
if ScreenSaverEnabled then
begin
SystemParametersInfo(SPI_GETSCREENSAVETIMEOUT, 0, @ScreenSaveTimeOut, 0);
SystemParametersInfo(SPI_SETSCREENSAVETIMEOUT, 0, nil, 0);
ScreenSaverEnabled := False;
end;
end;

procedure EnableScreenSaver;
begin
if not ScreenSaverEnabled then
begin
SystemParametersInfo(SPI_SETSCREENSAVETIMEOUT, ScreenSaveTimeOut, nil, 0);
ScreenSaverEnabled := True;
end;
end;

initialization
SystemParametersInfo(SPI_GETSCREENSAVETIMEOUT, 0, @ScreenSaveTimeOut, 0);
ScreenSaverEnabled := True;
finalization
EnableScreenSaver;
end.


---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.026 c