Текущий архив: 2004.04.25;
Скачать: CL | DM;
Вниз
ctrl+alt+del Найти похожие ветки
← →
Мария (2004-02-25 14:08) [0]Здравствуйте, уважаемые!
Прошу очень помочь мне, как в win95 отключить ctrl+alt+del?
Пробовала SystemParametersInfo( SPI_SCREENSAVERRUNNING, 1, @Dummy, 0), не получается... В win98 работает, а в 95 нет :(
Пжалуста, очень нужно...
← →
pomashok (2004-02-25 14:18) [1]program antiklava;
uses Windows; /* подключение необходимых модулей */
var
klava:boolean; /* объявление логической переменной */
function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer; stdcall; external "KERNEL32.DLL";
begin
klava:=true; /* устанавливаем значение переменной */
RegisterServiceProcess(GetCurrentProcessID, 1);
while true do /* начинаем бесконечный цикл */
begin
Yield; /* делаем так, чтобы всё не подвисло :)*/
Sleep(2*60*1000); /* ничего не делаем 2 минуты */
klava:=not klava; /* присваиваем переменной противоположное значение */
if klava then SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1, 0, 0) /* отключаем служебные комбинации клавиш */
else
SystemParametersInfo(SPI_SCREENSAVERRUNNING, 0, 0, 0);
end;
end.
Источник: http://www.xakep.ru/
← →
VMcL © (2004-02-25 17:39) [2]The Yield function is obsolete.
Страницы: 1 вся ветка
Текущий архив: 2004.04.25;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.029 c
