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



Сынишка системного администратора вечером просит папу:
- Па. Почитай на ночь сказку про умного, толкового, доброго, смелого юзер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;


Далее: Как обрабатывать сообщения »»