Как обнаружить активность юзера
Как обнаружить активность юзера
Как обнаружить активность юзера 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;