бональный вопрс но все же как заблокировать ра

← →
alexsandri © (2002-10-15 19:17) [0]

как заблокировать\разблокировать клаву

← →
Song © (2002-10-15 19:50) [1]

BlockInput()

P.S. бАнальный :-)

← →
Геннадий © (2002-10-15 21:25) [2]

BlockInput(True) - блокировка мышки и клавиатуры

Procedure BlockInput(ABlockInput : boolean); stdcall; external "USER32.DLL";

procedure LockComp;
var
D : Integer;
begin
D:= 0; //1
SystemParametersInfo( SPI_SETFASTTASKSWITCH, 1 {0}, @D, 0); // Вырубили ALT-TAB нафиг
SystemParametersInfo( SPI_SCREENSAVERRUNNING, 1 {0}, @D, 0); // CTRL-ALT-DEL туда же

BlockInput(True);
end;

procedure UnLockComp;
var
D : Integer;
begin
D:= 1;
SystemParametersInfo( SPI_SETFASTTASKSWITCH, 0, @D, 0); // Врубили ALT-TAB
SystemParametersInfo( SPI_SCREENSAVERRUNNING, 0, @D, 0); // CTRL-ALT-DEL

BlockInput(False);
end;

http://nps.vnet.ee/cgi-bin/dlcounter/npscnt?file=http://www.hot.ee/apbooks/chaos.html&file_id=chaos

бональный вопрс но все же как заблокировать ра Найти похожие ветки