delphi - 如何将 WMI 日期时间转换为标准日期时间？

Question

我正在尝试从 WMI 读取安装日期 (Win32_OperatingSystem.InstallDate)。返回值如下所示:20091020221246.000000+180。我怎样才能获得有效的日期？

Answer 1

您可以使用WbemScripting.SWbemDateTime，而不是手动解析和提取值(接受的答案建议的方式)。对象。

检查此示例

function  WmiDateToTDatetime(vDate : OleVariant) : TDateTime;
var
  FWbemDateObj  : OleVariant;
begin;
  FWbemDateObj  := CreateOleObject('WbemScripting.SWbemDateTime');
  FWbemDateObj.Value:=vDate;
  Result:=FWbemDateObj.GetVarDate;
end;

有关此主题的更多信息，您可以阅读这篇文章 WMI Tasks using Delphi – Dates and Times