delphi - 如何阻止我的应用程序在 Virtualbox 上运行？

Question

我已经尝试过this unit检测我的应用程序是否在 Oracle VirtualBox 中运行，但它没有检测 VirtualBox。

我已经在 VirtualBox 中安装了 Windows 7 进行了测试。

有什么有效的方法可以阻止我的 VCL 应用程序在 VirtualBox 中运行吗？

Answer 1

您可以使用Win32_BaseBoard WMI 类并检查 Product 字符串是否包含单词“Virtual”

例如:

function _IsOSVirtual(): Boolean;
const
  v = 'virtual';
Begin
  Result := False;
  CoInitialize(nil);
  try
     if Pos(v, LowerCase(GetWin32_BaseBoard('Product'))) > 0 then
      Result := True;
  finally
    CoUninitialize;
  end;
end;