خروجی این تابع مدت زمانی که از رایانه استفاده نشده را نشان می هد

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