время бездействия

[woziti]

Подскажите, хочу определить время которое юзер не активен.
Код

function LastInput: DWord;
var
  LInput: TLastInputInfo;
begin
  LInput.cbSize := SizeOf(TLastInputInfo);
  GetLastInputInfo(LInput);
  Result := GetTickCount - LInput.dwTime;
end;

работает идеально, но! Только в оконном приложении, мне же это нужно запихать в службу....

Есть ли какие нибудь способы из службы определить, движется ли мышь например...?

[Баламут]

Начиная с Win7 уже не получится, т.к. с этого момента службам запрещена всяка интерактивность. Т.е. даже доступа к Рабочему столу у нее нет