All pastes #525684 Raw Edit

Something

public text v1 · immutable
#525684 ·published 2007-05-31 13:51 UTC
rendered paste body
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;