Программирование Delphi

Как узнать время работы Windows от последнего запуска?

Функция Windows API GetTickCount определяет количество миллисекунд, которые прошли с тех пор, как система была запущена в последний раз (до 49,7 дней).

Если Вам нужно отобразить сколько прошло дней (минут, секунд) со времени запуска Windows, Вы должны преобразовать миллисекунды в дни, часы, минуты.

Вот функция, чтобы отобразить время от запуска Windows:

function WindowsUpTime : string ;
  function MSecToTime(mSec: Integer): string;
  const
    secondTicks = 1000;
    minuteTicks = 1000 * 60;
    hourTicks = 1000 * 60 * 60;
    dayTicks = 1000 * 60 * 60 * 24;
  var
     D, H, M, S: string;
     ZD, ZH, ZM, ZS: Integer;
  begin
     ZD := mSec div dayTicks;
     Dec(mSec, ZD * dayTicks) ;
     ZH := mSec div hourTicks;
     Dec(mSec, ZH * hourTicks) ;
     ZM := mSec div hourTicks;
     Dec(mSec, ZM * minuteTicks) ;
     ZS := mSec div secondTicks;
     D := IntToStr(ZD) ;
     H := IntToStr(ZH) ;
     M := IntToStr(ZM) ;
     S := IntToStr(ZS) ;
     Result := D + '.' + H + ':' + M + ':' + S;
  end;
begin
  result := MSecToTime(GetTickCount) ;
end;

Обратите внимание: WindowsUpTime возвращает строку, отформатированную как "дни.часы:минуты.секунды", например, "1.12:30.12", если Windows отработала за последний сеанс 1 день 12 часов 30 минут и 12 секунд.