БОЛЬШОЙ FAQ ПО DELPHI



Как обнаружить активность юзера

Сынишка системного администратора вечером просит папу:
- Па. Почитай на ночь сказку про умного, толкового, доброго, смелого юзерa...


 Application.OnMessage := DoMessageEvent;
 
 procedure TForm1.DoMessageEvent(var Msg: TMsg; var Handled: Boolean);
 begin
   case Msg.message of
     WM_KEYFIRST..WM_KEYLAST,
     WM_MOUSEFIRST..WM_MOUSELAST:
     { Произошли события клавиатуры и мыши };
     ...
   end;
 end;
 




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Видеокурс ВЗЛОМ