Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Как определить насколько долго система находится в Idle?

Автор: Poseidon 22.5.2005, 20:07

Код

function LastInput: DWord; 
var 
  LInput: TLastInputInfo; 
begin 
  LInput.cbSize := SizeOf(TLastInputInfo); 
  GetLastInputInfo(LInput); 
  Result := GetTickCount - LInput.dwTime; 
end; 


//Example: 
procedure TForm1.Timer1Timer(Sender: TObject); 
begin 
  Label1.Caption := Format('System Idle since %d ms', [LastInput]); 
end; 


// The GetLastInputInfo function retrieves the time 
// of the last input event. 
// Minimum operating systems: Windows 2000