Delphi

Вопрос

Как обнаружить активность пользователя?

Ответ

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;

Leonid Troyanovsky