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

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

Блокировка клавы [D5, Win95/98]

ray_wagner ©   (2002-03-28 23:09:00) 

Подскажите, как сделать так чтобы во время работы проги клавиатура блокировалась и если можно и мышь.

---

ALFA   (2002-04-16 19:54:00) [1]

EnableWindow(Handle,False); - отключить
EnableWindow(Handle,True); -включить

---

Севостьянов Игорь   (2002-04-03 10:44:00) [2]

Ладно ответим в очередной раз - раз у меня наконец время есть...

procedure TForm1.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); // ждем 5 секунд
xBlockInput(false); // разблокировка
end;
end;

---

SerVS - S   (2002-03-29 14:13:00) [3]

Ты вообще искать пытался?! Я сегодня отвечал на этот же вопрос, в этом же разделе!

---

kull   (2002-03-29 11:10:00) [4]

Меня всегда интересовал вопрос - А зачем это надо?

---

Song   (2002-03-29 07:12:00) [5]

BlockInput

---

Наверх