Delphi-Help

Главная Статьи Windows Как определить время простаивания системы?

Как определить время простаивания системы?

Оцените материал
(1 Голосовать)


Как определить время простаивания системы?

function LastInput: DWord;
var
  LInput: TLastInputInfo;
begin
   LInput.cbSize := SizeOf( TLastInputInfo );
   GetLastInputInfo( LInput );
   Result := GetTickCount - LInput.dwTime;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
   Caption := Format( 'Система простаивает %d ms', [LastInput] );
end;
Прочитано 4492 раз

Авторизация



Счетчики