关闭

检查程序是否运行在VMWare虚拟机里

571人阅读 评论(1) 收藏 举报

{
    This function can be used to determine whether your program is
    running from within VMWare.

    For more information please refer to the article at:
  http://www.codeproject.com/system/VmDetect.asp
}
function TForm1.IsInsideVMWare: Boolean;
var
    rc: Boolean;
begin
    rc := False;

    try
      asm
        push     edx
        push     ecx
        push     ebx

        mov      eax, 'VMXh'
        mov      ebx, 0 // any value but not the MAGIC VALUE
        mov      ecx, 10 // get VMWare version
        mov      edx, 'VX' // port number

        in       eax, dx // read port
                       // on return EAX returns the VERSION
        cmp      ebx, 'VMXh' // is it a reply from VMWare?
        setz     [rc] // set return value

        pop      ebx
        pop      ecx
        pop      edx
      end;
    except
      on EPrivilege do rc := False;
    end;

    Result := rc;
end;

Delphi 2007 下编译通过!

 
0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:112240次
    • 积分:1695
    • 等级:
    • 排名:千里之外
    • 原创:40篇
    • 转载:51篇
    • 译文:6篇
    • 评论:44条
    文章分类
    最新评论