Delphi:检测挂起的重新启动(例如从 Windows 更新)

Question

使用 Delphi，有没有办法检查挂起的重新启动(例如从 Windows 更新)？

在我的研究中，我发现了一种使用 C++ ( here ) 来执行此操作的方法，但它使用了一个我无法在 Delphi 中找到或找到等效项的库。

Answer 1

您链接到的 Raymond Chen 的解决方案可以轻松转换为 Delphi，尽管 Delphi 中的机制名称和语法略有不同。

documentation for ISystemInformation说:

You can create an instance of this interface by using the SystemInformation coclass. Use the Microsoft.Update.SystemInfo program identifier to create the object.

一个例子:

program CheckRebootRequired;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils, Winapi.ActiveX, System.Win.ComObj, System.Variants;

procedure Main;
var
  SysInfo: OleVariant;
  RebootRequired: OleVariant;
begin
  SysInfo := CreateOleObject('Microsoft.Update.SystemInfo');
  if not VarIsNull(SysInfo) then
  begin
    RebootRequired := SysInfo.RebootRequired;
    Writeln('Reboot required = ', RebootRequired);
  end
  else
    Writeln('Could not get Update SystemInfo');
end;

begin
  CoInitialize(nil);
  try
    try
      Main;
    except
      on E: Exception do
        Writeln(E.ClassName, ': ', E.Message);
    end;
  finally
    CoUninitialize;
  end;
  Readln;
end.