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