whats new ¦  programming tips ¦  indy articles ¦  intraweb articles ¦  informations ¦  links ¦  interviews
 misc ¦  tutorials ¦  Add&Win Game

Tips (1548)

Database (90)
Files (137)
Forms (107)
Graphic (116)
IDE (21)
Indy (5)
Internet / LAN (131)
IntraWeb (0)
Math (76)
Misc (127)
Multimedia (45)
Objects/
ActiveX (51)

OpenTools API (3)
Printing (35)
Strings (83)
System (268)
VCL (243)

Top15

Tips sort by
component


Search Tip

Add new Tip

Add&Win Game

Advertising

19 Visitors Online


 
...detect if the program is running inside VMWare?
Autor: Elias Bachaalany
Homepage: http://lgwm.org
[ Print tip ]  

Tip Rating (16):  
     


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.


 

Rate this tip:

poor
very good


Copyright © by SwissDelphiCenter.ch
All trademarks are the sole property of their respective owners