How to check if computer is idle

[PlutoDev]

hi..
I need to check if computer is idle more than 3 minutes..
I did it by checking mouse pointer.. But sometimes
user just using keyboard and mouse pointer(x,y) is
getting wrong.. So, I need to detect IDLE like windows'
screen-saver process.. How can I detect if computer is
idle (probably some minutes that I can set)...
Thanks..

 

[paulbenn]

This will work for Windows 2000 and above

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 Caption := Format('System IDLE last %d seconds', [SecondsIdle]) ;
end;

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

set the timer to an interval for checking 5-10 seconds should do!!

Kind Regards, Paul Benn

**** Never Giveup, keep trying, the answer is out there!!! ****