Подписаться на RSS рассылку
Главная » Статьи по Delphi » Дата и время » Узнать время запуска ОС и как долго работает ОС

Узнать время запуска ОС и как долго работает ОС

Автор: Борисов Сергей

procedure TForm1.Button1Click(Sender: TObject);  
var
  ndays: double;  
  ticks: LongInt;  
  btime: TDateTime;  
begin  
  {Функция GetTickCount получает количество миллисекунд,
  прошедших с момента старта Windows}

  ticks := GetTickCount;

  {Чтобы получить дни, необходимо разделить на количество
  миллисекунд в дне, 24*60*60*1000=86400000}

  ndays := ticks/86400000;

  {теперь вычитаем из текущей даты полученное количество
  дней работы Windows}

  bTime := now-ndays;

  {показываем диалоговое окно с сообщением}
  ShowMessage(
  FormatDateTime('"ОС запущена в " dddd, mmmm d, yyyy, '
  + '"в" hh:nn:ss AM/PM', bTime) + #10#13 + 'Работает ' +
  IntToStr(Trunc(nDays)) + ' дней,' +
  FormatDateTime(' h "часов," n "минут," s "секунд"',ndays)
  );
end;

Просмотров: 5009

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


Имя *:
Email:


Код *:

Copyright © 2008-2016 Программирование на Delphi для начинающих и не только

Полнота авторских прав на все материалы, опубликованные на сервере DelphiDevelop.ru принадлежит их авторам

Перепечатка материалов разрешается с указанием авторства и гиперссылки на первоисточник информации

Хостинг от uCoz

Автор проекта: Борисов Сергей

e-mail: save-x@yandex.ru

Связь с администрацией сайта