检测你的程序是否运行在虚拟机(VMware)

//------------------------------------------------------------------

构建一个函数,使用了汇编语言啊,嘿嘿!

// -------------------开始-----------------------------------------

function IsVMwarePresent(): LongBool; stdcall;

begin

Result := False;

{$IFDEF CPU386}

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;

{$ENDIF}

end;

//------------------form http://blog.csdn.net/laoli----------------------------------------------------------

//---------------------------测试一下-----------------------------------------------------------------------------------

rocedure TForm1.FormCreate(Sender: TObject);

begin

if IsVMwarePresent then

ShowMessage('你运行在虚拟机')

else

ShowMessage('正常运行')

end;

//---------------------------------------------------------------------------------------------------------------------------

//----------------先保存---------按F9,运行,晕!有提示信息.不理!再按F9,:正常运行',哈哈!

//------------------------------------->转载请注名出处和作者,尊重别人,也就是尊重自己.....................