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

{
    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 下编译通过!

 
阅读更多
个人分类: DELPHI
想对作者说点什么? 我来说一句

VMware虚拟机从入门到精通

-

学院

1970年01月01日 08:00

没有更多推荐了,返回首页

不良信息举报

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

最多只允许输入30个字

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭