Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Отключка [D5, Win95/98, WinME, NT4, WinXP]

dr.karter © (2002-08-29 17:41:00)
Уважаемые мастаки скажите пожалуста как я могу
отключить нажатие:
Ctrl+Alt+Del;
Alt+F4;
Alt+Tab;
И кнопочка которая находится между левыми Ctrl & alt

Song (2002-09-12 11:09:00) [1]
TForm.onCloseQuery поставить CanClose:=False

dr.karter (2002-09-12 10:56:00) [2]
SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1, nil, 0);//Блокировка Alt+Tab
SystemParametersInfo(SPI_SCREENSAVERRUNNING, 0, nil, 0);//Разблокировка Alt+Tab

Но не отключается ALT+F4Каким макаром енто можно победить

Almaz (2002-08-31 00:01:00) [3]

> Игорь Шевченко © (30.08.02 10:12)
> Almaz © (30.08.02 00:52)
>
> Пример отключения ? :-)
>
> SAS (secure attention sequence, Ctrl+Alt+Del) обрабатывает
> WinLogon

Нет, конечно, не пример отключения, а пример обработки SAS. То что SAS сначало получит Winlogon, это да, но потом, если есть GINA, то обработка перенаправится туда. В MSDN это все описано довольно подробно. Жаль, что не на русском :)))

Удачи.

dr.karter (2002-08-30 12:54:00) [4]
Огромное всем спасибо ! Очень рад что вы есть!

С глубоким уважением Dr.Karter

Игорь Шевченко (2002-08-30 10:12:00) [5]
Almaz © (30.08.02 00:52)

Пример отключения ? :-)

SAS (secure attention sequence, Ctrl+Alt+Del) обрабатывает WinLogon, насколько мне известно. Марк Руссинович вроде достаточно детально описывает обработку SAS :-)

С уважением,

Almaz (2002-08-30 00:52:00) [6]

> Игорь Шевченко © (29.08.02 17:45)
> Ctrl+Alt+Del - В NT4 и WinXP - никак

Можно. Написав свою GINA.DLL - примеры (и готовый код dll) есть в MSDN.

Удачи.

Diamond Cat (2002-08-30 00:08:00) [7]
отрубает ctrl+alt+del , ALT+Tab и кнопку пуск, под 98 точно

procedure TForm1.Button1Click(Sender: TObject);
var sss : LongInt;
begin
SystemParametersInfo (97, Word (True), @sss, 0); просто не показывает ctrl+alt+del , ALT+Tab и меню кнопки пуск
if not (csDesigning in ComponentState) then
RegisterServiceProcess(GetCurrentProcessID, 1);не показывает программу по ctrl+alt+del
end;

врубает

procedure TForm1.Button2Click(Sender: TObject);
var sss : LongInt;
begin
SystemParametersInfo (97, Word (False), @sss, 0);
if not (csDesigning in ComponentState) then
RegisterServiceProcess(GetCurrentProcessID, 0);
end;

Игорь Шевченко (2002-08-29 17:45:00) [8]
Ctrl+Alt+Del - В NT4 и WinXP - никак

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »