私のアプリがVirtualboxで動作するのを止めるにはどうしたらいいですか？

Question

アプリケーションがOracle VirtualBoxで実行されているかどうかを検出するのにthis unitを試しましたが、VirtualBoxが検出されていません。

VirtualBoxにインストールされたWindows 7でテストしました。

VCLアプリケーションがVirtualBoxで実行されないようにする効率的な方法はありますか？

Answer 1

製品の文字列は、例えば、単語「Virtual」

が含まれている場合は、Win32_BaseBoard WMIクラスを使用して確認することができます。

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

を使用すると、（WMIまたは他の方法で）されたBIOS情報を得ることができる場合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"; 
}; 

他のクラスを使用すると、VirtualBoxのインストールを識別できます。たとえば、このクエリ：

Select Manufacturer, Model, OEMStringArray from Win32_ComputerSystem 

戻り、この値：

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;