| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
бональный вопрс но все же как заблокировать ра [D5, D6, Win95/98, WinME, WinXP]
alexsandri © (2002-10-15 19:17:00)как заблокировать\разблокировать клаву
Anatoly Podgoretsky (2002-10-15 21:40:00) [1]http://nps.vnet.ee/cgi-bin/dlcounter/npscnt?file=http://www.hot.ee/apbooks/chaos.html&file_id=chaos
Геннадий (2002-10-15 21:25:00) [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;
Song (2002-10-15 19:50:00) [3]BlockInput()
P.S. бАнальный :-)
| |
