我如何在 Virtualbox 上停止我的应用程序 运行？

Question

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

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

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

Answer 1

您可以使用 Win32_BaseBoard WMI class 并检查产品字符串是否包含单词“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;

Answer 2

如果你可以获取 Bios 信息（使用 WMI 或其他方法），你可以找到 VirtualBox 的痕迹。

instance of Win32_BIOS
{
    ...
    BIOSVersion = {"VBOX   - 1"};
    Caption = "Default System BIOS";
    Description = "Default System BIOS";
    Manufacturer = "innotek GmbH";
    Name = "Default System BIOS";
    SerialNumber = "0";
    SMBIOSBIOSVersion = "VirtualBox";
    SMBIOSPresent = TRUE;
    SoftwareElementID = "Default System BIOS";
    SoftwareElementState = 3;
    Status = "OK";
    Version = "VBOX   - 1";
};

继续使用 WMI 其他 类 可以帮助您识别 VirtualBox 安装。例如这个查询：

Select Manufacturer, Model, OEMStringArray from Win32_ComputerSystem

Return 这个值：

instance of Win32_ComputerSystem
{
    Manufacturer = "innotek GmbH";
    Model = "VirtualBox";
    OEMStringArray = {"vboxVer_5.1.22", "vboxRev_115126"};
};

Answer 3

function IsRunningVirtualBox : Boolean;
var
   vHandle : THandle;
begin
   Result := false;
   vHandle := LoadLibrary('VBoxHook.dll');
   if vHandle <> 0 then begin
      Result := true;
      FreeLibrary(vHandle);
   end;
end;