خروجی این تابع مدت زمانی که از رایانه استفاده نشده را نشان می هد
function SecondsIdle: DWord;
var
SecondsIdle: DWord;var
liInfo: TLastInputInfo;
begin
liInfo.cbSize := SizeOf(TLastInputInfo) ;
GetLastInputInfo(liInfo) ;
Result := (GetTickCount - liInfo.dwTime) DIV 1000;
end;
