Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.01.13;
Скачать: 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 вся ветка

Текущий архив: 2003.01.13;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.026 c
4-37450
SYNthetic
2002-11-23 21:30
2003.01.13
Определение изменений устройств Plug&Play


3-36919
Вованчик
2002-12-17 15:49
2003.01.13
Ошибочка


1-37108
delpher_gray
2002-12-30 19:38
2003.01.13
Почему


1-37069
murzikN
2003-01-02 21:50
2003.01.13
Кто знает методы или свойства, чтобы определить на странице Excel


4-37472
Unknown user
2002-11-26 19:57
2003.01.13
Масштабирование текста