Определение активности пользователя.

[AngelNine]

Доброго времени суток, уважаемые программисты. Суть вопроса такова: Необходимо определить активен ли пользователь в данный момент. В качестве оценивающего критерия активности остановимся на взаимодействие с клавиатурой и мышкой( движение курсора\нажатие клавиш). Пытался искать долгое время в интернете и единственным кодом, что удалось найти был:

function SecondsIdle: DWord;
var
   liInfo: TLastInputInfo;
begin
   liInfo.cbSize := SizeOf(TLastInputInfo) ;
   GetLastInputInfo(liInfo) ;
   Result := (GetTickCount - liInfo.dwTime) DIV 1000;
end;

Использую Delphi 7, ОС - Win8.1 x64.
Суть проблемы в том что даже если я не трогаю мышку и клавиатуру таймер показывает что система активна. Немного постаравшись получилось примерно следующее что и демонстрирует работу функции:

[Stilet]

However, GetLastInputInfo does not provide system-wide user input information across all running sessions. Rather, GetLastInputInfo provides session-specific user input information for only the session that invoked the function.

Т.е. ты мониторишь только события простоя своего приложения а не всецело системы.

[Sibedir]

function SecondsIdle: DWord;
var
   liInfo: TLastInputInfo;
begin
   liInfo.cbSize := SizeOf(TLastInputInfo) ;
   GetLastInputInfo(liInfo) ;
   Result := (GetTickCount - liInfo.dwTime) DIV 1000;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
   Label1.Caption := IntToStr (SecondsIdle);
end;

Delphi XE5
Windows 7 32-bit
Работает

[AngelNine]

Сообщение от Stilet

Т.е. ты мониторишь только события простоя своего приложения а не всецело системы.

Простите мне мою не грамотность и не знание английского языка... Но тогда может вы мне подскажите как мне мониторить простой всей системы? Или как отследить движение мышки и нажатие клавиатуры, в то время когда мое приложение не активно, т.е. не в фокусе?

[Alex11223]

Hook'и использовать.

[Stilet]

Ну в общем-то можно поставить хук. Что-то типа http://delphiworld.narod.ru/base/glo...oard_hook.html
Но просто само понятие "простоя" слишком абстрактное. Может расскажешь для чего это вообще нужно?

[AngelNine]

Сообщение от Sibedir

function SecondsIdle: DWord;
var
   liInfo: TLastInputInfo;
begin
   liInfo.cbSize := SizeOf(TLastInputInfo) ;
   GetLastInputInfo(liInfo) ;
   Result := (GetTickCount - liInfo.dwTime) DIV 1000;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
   Label1.Caption := IntToStr (SecondsIdle);
end;

Delphi XE5
Windows 7 32-bit
Работает

И у вас он корректно показывает время простоя приложения?

Сообщение от Stilet

Ну в общем-то можно поставить хук. Что-то типа http://delphiworld.narod.ru/base/glo...oard_hook.html
Но просто само понятие "простоя" слишком абстрактное. Может расскажешь для чего это вообще нужно?

Приложение отслеживает время работы сотрудников. Какие приложения запущены. Время активности в той или иной программы. Но так же мне нужно для этого как то отследить активен ли пользователь или он куда то отошел. Есть программка WorkExamener мне нужен аналог.

[Stilet]

Приложение отслеживает время работы сотрудников.

А род работы сотрудников? Вдруг они не все время проводят за терминалом?

[AngelNine]

Сообщение от Stilet

А род работы сотрудников? Вдруг они не все время проводят за терминалом?

Это уже не важно, меня интересует именно время проведенное за терминалом. Сколько времени компьютер был в активном состоянии (пользователь работал с какими либо приложениями) и сколько он стоял без участия пользователя. Это и так понятно что они не все время проводят на рабочем месте. Вот по факту мне и нужно отследить сколько времени они отсутствуют на рабочем месте...

[Alex11223]

Вот по факту мне и нужно отследить сколько времени они отсутствуют на рабочем месте...

А если он у компа, но не трогает клавиатуру?

К примеру читающий документы юрист может вообще ничего не нажимать, поставив документ в режим автоскроллирования.
Или человек рассматривает презентацию, или принимает видеоконференцию от шефа — как тогда?