Скачать: CL | DM;

Работа с удаленным компьютером   Найти похожие ветки 

← →
Dr.Karter   (2002-06-25 16:04) [0]

Здравствуйте уважаемые мастера!
У меня встала такая очень тонкая задача. Мне нужно знать как с другово компьютера, отключить( нажав клавишу ), а за тем включить обратно! клавиатуру и мышку, так чтобы клавиатура отключалась, даже если запущена какая-нибудь игра. Вот такой кусочек только отключает, а когда запущена игра вообще по-фиг,
клавиатуру, а включение происходит не для всей клавы только
Ctrl+Alt+Del (благодаря которой я могу закрыть приложение, а затем, после закрытия вкл. вся клава).
var
Form1: TForm1;
k_Dummy:Integer = 0;
k_OldKBHook:HHook = 0;

function KbHook( code: Integer; wparam: Word; lparam: LongInt ): LongInt;stdcall;
procedure KeyBoardOn;
procedure KeyBoardOff;

implementation
{$R *.DFM}

function KbHook( code: Integer; wparam: Word; lparam: LongInt ): LongInt;stdcall;
begin
if code<0 then Result:=CallNextHookEx( k_oldKbHook, code, wparam, lparam )
else Result:=1;
end;

// GOd¦

---

← →
Игорь Шевченко ©   (2002-06-26 10:38) [1]

Вирус пишем ?

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.014 c