Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.08.29;
Скачать: 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 вся ветка

Текущий архив: 2002.08.29;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.015 c
3-95664
vovanx
2002-08-08 10:14
2002.08.29
TQuery


1-95832
Nikson
2002-08-12 12:55
2002.08.29
Работа с компонентом StringGrid


1-95804
unfam
2002-08-20 02:47
2002.08.29
Про память


4-96010
Misha-5
2002-06-25 13:47
2002.08.29
Как правильно вызвать функции из SETUPAPI.DLL?


7-96000
Dim0S
2002-06-16 16:49
2002.08.29
работа с СОМ портом в NT