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

Вниз

Нужно отключить клавиатуру и мышь   Найти похожие ветки 

← →
KiM   (2002-11-01 08:11) [0]

Вообщем спецы, нужна ваша помощь - нужно програмно отключить клавиатуру и мышь т.е. перехватывать их нажатия, а потом их некуда не передавать :), пытался наваять сам, но что-то глючит.... Может у кого-нить есть?

---

← →
Song ©   (2002-11-01 11:06) [1]

1.Хук.
2.BlockInput()

---

← →
Севостьянов Игорь ©   (2002-11-01 11:25) [2]

Задолбали с этим - ну хоть поищите немного на этом же форуме не раз отвечали...

http://delphi.mastak.ru/cgi-bin/faq.pl?look=1&id=988620924&n=15
http://delphi.mastak.ru/cgi-bin/forum.pl?look=1&id=1027960295&n=2
http://delphi.mastak.ru/cgi-bin/faq.pl?look=1&id=988622625&n=15

procedure TfrmExamples.Button1Click(Sender: TObject);

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(5000);
xBlockInput(false);
end;
end;

---

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

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

Наверх

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