Delphi

Разработка сайтов

Наши проекты

Главная » Статьи по 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;