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.