Главная » Статьи » Программирование в Delphi |
Узнать время работы Windows
Функция GetTickCount возвращает количество тысячных секунд с начала текущего сеанса Windows. Эта программа показывает, сколько времени уже длится сеанс работы в Windows. Code procedure TForm1.Timer1Timer(Sender: TObject); var t: integer; begin t := GetTickCount; Form1.Caption := 'Windows работает уже ' + IntToStr(t div 60000) + ' мин ' + IntToStr((t mod 60000) div 1000) + ' сек ' + IntToStr(t mod 1000) + ' мсек'; end; Источник: http://delphi4all.narod.ru/how/wintime.htm | |
Просмотров: 1398 | Рейтинг: 0.0/0 |
Всего комментариев: 0 | |