DELPHI获取开机时间

在Delphi中，可以通过调用`GetTickCount`函数来获取从计算机启动以来的毫秒数，然后结合时间戳转换来计算开机时间。这里有两种不同的方法：

1. 使用`GetTickCount`直接计算[^1]:

// 获取开机至今的毫秒数
var
  StartTime: TDateTime;
begin
  StartTime := Now - GetTickCount / 1000 / 60 / 60 / 24; // 除以一天的毫秒数（86400000）
end;

2. 更精确的方法，通过`TimeStampToMSecs`和`DateTimeToTimeStamp`[^2]:

var
  T1: Int64;
  T2: Int64;
  T3: TDateTime;
  T4: TDateTime;
begin
  // 获取当前时间和开机时的时间戳
  T1 := GetTickCount;
  T3 := Now;

  // 计算两个时间戳之间的差（毫秒）
  T2 := TimeStampToMSecs(DateTimeToTimeStamp(T3)) - TimeStampToMSecs(DateTimeToTimeStamp(StartUpTime));

  // 将毫秒转换回日期时间
  T4 := DateTimeFromMilliseconds(T2);

  // 显示开机时间
  ShowMessage('Computer started at: ' + FormatDateTime('dd.mm.yyyy HH:MM:SS', T4));
end;

在这两种方法中，第一种相对简单但可能不太精确，第二种更精确，因为它考虑了自0001年1月1日以来的总毫秒数。