Работа с удаленным компьютером [D5, WinME]
Dr.Karter © (2002-06-25 16:04:00)
Здравствуйте уважаемые мастера!
У меня встала такая очень тонкая задача. Мне нужно знать как
с другово компьютера, отключить( нажав клавишу ), а за тем включить
обратно! клавиатуру и мышку, так чтобы клавиатура отключалась, даже
если запущена какая-нибудь игра. Вот такой кусочек только
отключает, а когда запущена игра вообще по-фиг,
клавиатуру, а включение происходит не для всей клавы только
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:00) [1]
Вирус пишем ?
Наверх 
ЧАТ |
Орешник |
|
