FUNCTION IsVMwarerRuning : LongBool;
BEGIN
  Result:=False;
  TRY
    ASM
      mov     EAX,564D5868h
      mov     EBX,00000000h
      mov     ECX,0000000Ah
      mov     EDX,00005658h
      in      EAX,DX
      cmp     EBX,564D5868h
      jne     @@Exit
      mov     Result,TRUE
    @@Exit:
    END;
  EXCEPT
    Result:=False;
  END;
END;