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

最新推荐文章于 2024-03-10 21:24:49 发布

wangyunyong0905

最新推荐文章于 2024-03-10 21:24:49 发布

阅读量1.1k

点赞数

CC 4.0 BY-SA版权

分类专栏： DELPHI 文章标签： vmware 虚拟机 delphi function

本文链接：https://blog.youkuaiyun.com/wangyunyong0905/article/details/1814626

DELPHI 专栏收录该内容

74 篇文章

订阅专栏

本文提供了一个Delphi函数，用于判断程序是否在VMWare虚拟环境中运行。该函数通过特定的汇编指令来检查是否有来自VMWare的回复，从而确定当前运行环境。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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