...überprüfen, ob das Programm im VMWare ausgeführt wird?

program detectvmware;

{$APPTYPE CONSOLE}

uses SysUtils;

{
  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 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;

begin

  Write('IsInsideVMWare:');
  if IsInsideVMWare then
    WriteLn('Yes')
  else
    WriteLn('No');
end.

printed from
www.swissdelphicenter.ch
developers knowledge base