code_20037.txt
------------ Дoбавленo в 08.36:
Разобрался. В справочнике по API v1.8 почему-то до сир пор эта фкнция есть, хотя, насколько понял из Интернета, в Win32 её уже нет. Вот правильная реализация блокировки мыши и клавиатуры:
Add(MainForm,9599326,168,274)
{
link(onCreate,8157233:doWork2,[(254,294)(254,329)])
}
Add(InlineCode,15629518,364,316)
{
WorkPoints=#1:f|
Code=#15:unit HiAsmUnit;|0:|9:interface|0:|47:uses kol,Share,Debug,windows,shellapi,messages;|0:|4:type|28: THiAsmClass = class(TDebug)|10: private|0:|9: public|17: //:THI_Event;|0:|42: procedure f(var dt:TData; index:word);|0:|5: end;|0:|76:Procedure BlockInput(ABlockInput : boolean); stdcall; external 'USER32.DLL';|0:|14:implementation|0:|24:procedure THiAsmClass.f;|5:begin|26: BlockInput(ReadBool(dt));|17: //_hi_OnEvent();|4:end;|0:|4:end.|
}
Add(Timer,12191870,245,316)
{
Interval=15000
AutoStop=1
link(onTimer,8157233:doWork1,[])
}
Add(ChanelToIndex,8157233,308,316)
{
link(onIndex,15629518:f,[])
}
Блокировка снимается через 15 секунд автоматически или при нажатии Ctrl+Alt+Del.
Поиск
Друзья
Администрация