Узнать что клавиатура активна

[SLAUR]

Как узнать что на клавиатуре кто-то работает.
Нужно для чата-информировать что пользователь активен

[Человек_Борща]

Как узнать что на клавиатуре кто-то работает.
Нужно для чата-информировать что пользователь активен

События keydown, keyup, keypress на форме чата.
Если надо в принципе - ставьте глобальный хук на WH_KEYBOARD

[Vapaamies]

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

Нужно для чата-информировать что пользователь активен

Подсмотреть в исходниках открытых чат-клиентов, как это они делают.

[Filka]

http://www.sources.ru/cpp/system/getlastinputinfo.shtml
http://joelabrahamsson.com/detecting...nput-with-net/

[SLAUR]

События keydown, keyup, keypress на форме чата.

Надо смотреть активность не только в моем приложении

[SLAUR]

Мне подойдет следующий код (простаивание системы) как раз и клавиатура и мышь

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 := Format('System IDLE last %d seconds', [SecondsIdle]) ;
 Application.ProcessMessages;
end;

Спасибо всем ответившим