как выкл и вкл мышь и клавиатуру???

← →
Masya2001 (2002-12-21 22:37) [0]

У меня не получется вкл мышь и вкл клавиатуру а выкл получается
посмотрите что не правильно?
WinExec("rundll32 mouse,disable",1);
WinExec("rundll32 mouse,enable",1);
WinExec("rundll32 keyboard,disable",1);
WinExec("rundll32 keyboard,enable",1);
Дело в чтом что выкл получается а вкл не могу и всё исправте плиз!

← →
Bosh (2002-12-22 00:29) [1]

все правильно , винда их потом и не включает) почему не знаю , но они не работают, мож дело в том в какой последовательности видна загрузает дрова свои. Но факт в том что вкл не работает)

← →
drin (2002-12-22 01:32) [2]

Cпособ 1:
procedure BlockInput(Block: boolean); stdcall; external "USER32.DLL";

одно но: в XP Ctrl+Alt+Del её вырубает. :(

Cпособ 2:
Писать хук на клаву и на мишь.

← →
Song (2002-12-22 10:39) [3]

BlockInput() нигде CAD не вырубает.

← →
Masya2001 (2002-12-22 17:55) [4]

так что я не пойму что врубить мышь и клаву не возможно если возможно опишите подробнее пожалуста!

← →
Masya2001 (2002-12-22 21:55) [5]

var

Dummy : integer=0;
OldKbHook : HHook=0;

impementation

function KbHook( code: Integer; wparam: Word; lparam: LongInt ): LongInt; stdcall;
begin

if code<0 then Result:=CallNextHookEx( oldKbHook, code, wparam, lparam )
else Result:=1;
end;

// включение клавы
procedure TForm1.KeyBoardOn(Sender: TObject);
begin

if OldKbHook <> 0 then begin
UnHookWindowshookEx( OldKbHook );
OldKbHook := 0;
end;
SystemParametersInfo( SPI_SETFASTTASKSWITCH, 0, 0, 0);
SystemParametersInfo( SPI_SCREENSAVERRUNNING, 0, 0, 0);
end;

// выключение клавы
procedure TForm1.KeyBoardOff(Sender: TObject);
begin

SystemParametersInfo( SPI_SETFASTTASKSWITCH, 1, @Dummy, 0);
SystemParametersInfo( SPI_SCREENSAVERRUNNING, 1, @Dummy, 0);
OldKbHook := SetWindowsHookEx( WH_KEYBOARD, @KbHook, HInstance, 0 );
end;
Если вместо WH_KEYBOARD поставить WH_MOUSE, то можно выключать таким образом мышь

это я нашёл где не помню но с клавой работает и под ХР
а как вкл мышь выкл она выкл а вкл её как а а то там не бало это описсанно???
подскажите пожалуста!

← →
Song (2002-12-22 22:48) [6]

заблокировать и клаву и мышь - rundll32, без включения
заблокировать клаву и мышт - BlockInput() с включением
заблокировать клаву - WH_KEYBOARD, WH_GETMESSAGE
заблокировать мышь - WH_MOUSE, WH_GETMESSAGE

CAD не блокируется нигде (возможно только в первом варианте в w9x)

← →
Masya2001 (2002-12-22 23:07) [7]

впрос в том как вкл мышь!!!

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