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

[Geksod]

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

procedure TForm1.FormCreate(Sender: TObject);
begin
   Application.OnMessage := DoMessageEvent;
end;

procedure TForm1.DoMessageEvent(var Msg: TMsg; var Handled: Boolean);
begin
   case Msg.message of
      WM_KEYFIRST..WM_KEYLAST, WM_MOUSEFIRST..WM_MOUSELAST:
      begin
         // Произошло событие клавиатуры или мыши,
         // делаем все, что нам надо
      end;
  end;
end;

Забыл добавить: программа свернута в системный трей.

[fate]

программа свернута в системный трей

ну тогда твой код не катит

[chertovich]

Наверное, нужна глобальная обработка, хук. Я думаю знающие люди подскажут, и зачем только я вставляю свои 5 копеек

[Geksod]

Поделитесь кодом, если есть у кого-то что-то похожее...

[Geksod]

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

Наверное, нужна глобальная обработка, хук. Я думаю знающие люди подскажут, и зачем только я вставляю свои 5 копеек

Я тоже думаю, что необходим хук. Нашел много инфы на эту тему. Сижу читаю. Просто думал может у кого есть готовое решение.

[Пепел Феникса]

а может стоит посмотреть в эту сторону?
http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx

[Geksod]

Сообщение от Пепел Феникса

а может стоит посмотреть в эту сторону?
http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx

Часто на форумах отвечают ссылками с msdn.
Научите применять это дело на практике, пожалуйста. Как можно подробнее. Если не затруднит.

[Lime]

Пример во вложении

[Пепел Феникса]

прошу прощения, не то сказал.
вот пример получения количества миллисекунд простоя:

procedure TForm1.Timer1Timer(Sender: TObject);
var times:tagLASTINPUTINFO;
begin
 times.cbSize:=SizeOf(times);
 GetLastInputInfo(times);
 Memo1.Text:=(IntToStr(GetTickCount()-times.dwTime));
end;

вот собственно.