Недоступность Ctrl-Alt-Del

Written on 29 Октября 2007. Posted in [Delphi] Система. Клавиатура

С помощью Delphi скомпилируйте единственный вызов WIN32API в небольшой .exe файле.

Программа:

program small;

{автор Richard Leigh, Deakin Univesity 1997}

uses

WinProcs;

{$R *.RES}

var

Dummy : integer;

begin

Dummy := 0;

{Отключаем ALT-TAB}

SystemParametersInfo( SPI_SETFASTTASKSWITCH, 1, @Dummy, 0);

{Отключаем CTRL-ALT-DEL}

SystemParametersInfo( SPI_SCREENSAVERRUNNING, 1, @Dummy, 0);

end.