| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
ctrl+alt+del [D4, Win95/98]
Мария © (2004-02-25 14:08:00)Здравствуйте, уважаемые!
Прошу очень помочь мне, как в win95 отключить ctrl+alt+del?
Пробовала SystemParametersInfo( SPI_SCREENSAVERRUNNING, 1, @Dummy, 0), не получается... В win98 работает, а в 95 нет :(
Пжалуста, очень нужно...
VMcL (2004-02-25 17:39:00) [1]The Yield function is obsolete.
pomashok (2004-02-25 14:18:00) [2]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/
| |
