[Alegun]

Сообщение от GOD_Roman$

Ну может быть кто нибудь какую нибудь бредовую идею кинет...

Не знаю только, как насчёт семёрки, не проверял

Код:

uses 
WinProcs
var 
i: integer=0; 
begin
// Ctrl-Alt-Del 
SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1, @i, 0); 
// для Alt-Tab: SPI_SETFASTTASKSWITCH 
end;

ещё

Код:

var
i: integer=0;
OldKbHook: HHook=0;
...
function KbHook(code: Integer; wparam: Word; lparam: LongInt): LongInt; stdcall;
begin
if code<0 then Result:= CallNextHookEx(oldKbHook, code, wparam, lparam)
else Result:= 1;
end;

// Выключение клавиатуры
SystemParametersInfo(SPI_SETFASTTASKSWITCH, 1, @i, 0);
SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1, @i, 0);
OldKbHook:= SetWindowsHookEx(WH_KEYBOARD, @KbHook, HInstance, 0);

// Включение клавиатуры
if OldKbHook <> 0 then 
begin
UnHookWindowshookEx(OldKbHook);
OldKbHook:= 0;
end;
SystemParametersInfo(SPI_SETFASTTASKSWITCH, 0, 0, 0);
SystemParametersInfo(SPI_SCREENSAVERRUNNING, 0, 0, 0);

и такое

Код:

EnableHardwareInput(false); // false = Off  true = On
// или
EnableHardwareKeyboard(false); 

З.Ы. А чем Win+L не нравится? Ведь так проще.