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

以上代码摘自 橙子