判断程序是否在虚拟机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;

以上代码摘自 橙子