Главная страницаОбратная связьКарта сайта

Время простаивания системы

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

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 

Обсудить статью на форуме


Если Вас заинтересовала или понравилась информация по разработке на Delph - "Время простаивания системы", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!
   


Copyright © 2008 - 2024 Дискета.info