| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Нужно отключить клавиатуру и мышь [D5, Win95/98]

KiM ©   (2002-11-01 08:11:00) 

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

---

Севостьянов Игорь   (2002-11-01 11:25:00) [1]

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

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;

---

Song   (2002-11-01 11:06:00) [2]

1.Хук.
2.BlockInput()

---

Наверх