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 - "Время простаивания системы", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу: Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!