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

源代码网整理以下//------------------------------------------------------------------ 软件开发网 www.mscto.com

源代码网整理以下构建一个函数,使用了汇编语言啊,嘿嘿!

源代码网整理以下// -------------------开始-----------------------------------------

源代码网整理以下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,:正常运行",哈哈!

源代码网整理以下//------------------------------------->转载请注名出处和作者,尊重别人,也就是尊重自己.....................