Отключка

← →
dr.karter (2002-08-29 17:41) [0]

Уважаемые мастаки скажите пожалуста как я могу
отключить нажатие:
Ctrl+Alt+Del;
Alt+F4;
Alt+Tab;
И кнопочка которая находится между левыми Ctrl & alt

← →
Игорь Шевченко © (2002-08-29 17:45) [1]

Ctrl+Alt+Del - В NT4 и WinXP - никак

← →
Diamond Cat © (2002-08-30 00:08) [2]

отрубает 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;

← →
Almaz © (2002-08-30 00:52) [3]

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

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

Удачи.

← →
Игорь Шевченко © (2002-08-30 10:12) [4]

Almaz © (30.08.02 00:52)

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

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

С уважением,

← →
dr.karter (2002-08-30 12:54) [5]

Огромное всем спасибо ! Очень рад что вы есть!

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

> Игорь Шевченко © (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-09-12 10:56) [7]

SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1, nil, 0);//Блокировка Alt+Tab
SystemParametersInfo(SPI_SCREENSAVERRUNNING, 0, nil, 0);//Разблокировка Alt+Tab

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

TForm.onCloseQuery поставить CanClose:=False

Отключка Найти похожие ветки