Текущий архив: 2002.12.16;
Скачать: CL | DM;

Вниз

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

← →
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;

---

← →
Anatoly Podgoretsky ©   (2002-10-15 21:40) [3]

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

---

Страницы: 1 вся ветка

Текущий архив: 2002.12.16;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.028 c