22.02.2013, 13:10
|
|
LMD-DML
|
|
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
|
|
Цитата:
Сообщение от 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 не нравится? Ведь так проще.
|