Блокировка KeyBoard и Mouse с возможностью разблокировки

← →
Bonial © (2004-01-06 04:20) [0]

Мне нужно заблокировать клаву и "грызуна" на некоторое время. Нашел процедуру EnableHardwareInput(b:boolean) в файле user.exe. Но как ее оттуда достать? LoadLibrary не помогает: LoadLibrary("user.exe")=0.

← →
Kerk © (2004-01-06 14:17) [1]

user.exe - 16-ти разрядный, поэтому LoadLibrary тут не работает. В крайнем случае используй недокументированные LoadLibrary16, GetProcAddress16, QT_Thunk

или используй функцию BlockInput

← →
asCrypter (2004-02-03 11:16) [2]

> используй функцию BlockInput

но в XP работать не будет - я пробовал :)

← →
dr Tr0jan © (2004-02-03 13:13) [3]

Попробуй:
systemparametersinfo (97, word (true), @oldval, 0); // - для включения; systemparametersinfo (97, word (false), @oldval, 0); // - для включения.
В Win9x сто пудово работает, в WinXP не пробовал, но вроде должно.

← →
DeadMeat © (2004-02-03 17:17) [4]

[2] asCrypter (03.02.04 11:16)

> используй функцию BlockInput

но в XP работать не будет - я пробовал :)

А у меня в XP работает...

← →
Slym © (2004-02-04 13:17) [5]

2 DeadMeat ALT CTRD DEl и заработало...

← →
DeadMeat © (2004-02-04 14:10) [6]

> [5] Slym © (04.02.04 13:17)
Так ведь и в Win9x так же можно сделать... Факт в том, что во всех виндах BlockInput работает... Правда в WinNT не проверял...

← →
Gero © (2004-02-04 15:01) [7]

>Мне нужно заблокировать клаву и "грызуна" на некоторое время

Зачем так наказывать бедного юзера?

procedure TForm1.Button1Click(Sender: TObject);
var
xBlockInput : function(Block: BOOL): BOOL; stdcall;
begin
xBlockInput(true);
Sleep(15000);
xBlockInput(false);
end;

это шутка, а вот так серьезно:
function FuncAvail (VLibraryname, VFunctionname: string; var VPointer: pointer):
boolean;
var
Vlib: tHandle;
begin
Result := false;
VPointer := NIL;
if LoadLibrary(PChar(VLibraryname)) = 0 then
exit;
Vlib:= GetModuleHandle(PChar(VLibraryname));
if Vlib <> 0 then
begin
VPointer := GetProcAddress(Vlib, PChar(VFunctionname));
if VPointer <> NIL then
Result := true;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
xBlockInput : function(Block: BOOL): BOOL; stdcall;
begin
if FuncAvail("USER32.DLL", "BlockInput", @xBlockInput) then
begin
xBlockInput(true);
Sleep(15000);
xBlockInput(false);
end;
end;

Блокировка KeyBoard и Mouse с возможностью разблокировки Найти похожие ветки