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/

The Yield function is obsolete.

ctrl+alt+del Найти похожие ветки