Скачать: 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 вся ветка

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



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