Block in XP

← →
spogi (2004-05-05 02:32) [0]

Вопрос я задаю уже второй раз!
только щась хочу сформулировать вопрос по другому...
Нужен:
1. Отключение/включение ввода. То есть клав и мышка...
2. Скрыть/Отобразить Панель пуск.
3. Нажатия Ctrl+Esc открывает меню пуск, хочу чтобы не открывал...
4. Если никакая из перечисленного, то хотя бы последняя - отлавить нажатия клавиша прежде чем сам Windows, и обработать...

← →
Gero © (2004-05-05 07:36) [1]

А мы все вирусы пишем...

← →
Yanis © (2004-05-05 07:52) [2]

Если реализуешь 1, то 3 отпадёт.

← →
Боян Георгиев (2004-05-05 07:55) [3]

Procedure LockKeyb(secs: integer);
function FuncAvail(_dllname, _funcname: string; var _p: pointer): boolean;
var _lib: tHandle;
begin
Result := false;
_p := NIL;
if LoadLibrary(PChar(_dllname)) = 0 then exit;
_lib := GetModuleHandle(PChar(_dllname)) ;
if _lib <> 0 then
begin
_p := GetProcAddress(_lib, PChar(_funcname)) ;
if _p <> NIL then Result := true;
end;
end;

var
xBlockInput : function(Block: BOOL):
BOOL; stdcall;

begin
if FuncAvail
("USER32.DLL", "BlockInput", @xBlockInput) then
begin
xBlockInput(true) ;
Sleep(secs * 1000) ;
xBlockInput(false) ;
end;
end;

Block in XP Найти похожие ветки