Форум: "Основная";
Текущий архив: 2003.01.13;
Скачать: [xml.tar.bz2];
ВнизО блокировке заставки Найти похожие ветки
← →
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 вся ветка
Форум: "Основная";
Текущий архив: 2003.01.13;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.007 c