HanDs
管理员

[Delphi文章] 判断程序是否在VMWare内运行 





学习中请遵循国家相关法律法规,黑客不作恶。没有网络安全就没有国家安全

本站需要登陆后才能查看

现在有许多用户都喜欢用虚拟机来测试他们的软件,以避免对真实机器环境造成损害。但是在虚拟机中,有些功能是受限,甚至不可能完成的,因此,需要在程序中判断虚拟机的环境,如果程序在虚拟机内运行,则就要把虚拟机下不能使用的功能屏蔽掉。

判断程序是否在VMWare虚拟机内,可以用以下代码来完成:

function IsRunInVMWare(out ErrMsg: string): Boolean;
begin
Result := False;
try
    asm
      push     edx
      push     ecx
      push     ebx
      mov      eax, 'VMXh'
      mov      ecx, $0A
      mov      edx, 'VX'
      in       eax, dx
      cmp      ebx, 'VMXh'
      setz     [Result]
      pop      ebx
      pop      ecx
      pop      edx
    end;
except
    on E: Exception do
      ErrMsg := E.Message;
end;
end;


学习中请遵守法律法规,本网站内容均来自于互联网,本网站不负担法律责任
判断 程序 是否 V MW ar e 运行
#1楼
发帖时间:2016-7-9   |   查看数:0   |   回复数:0
游客组
快速回复