//------------------------------------------------------------------
构建一个函数,使用了汇编语言啊,嘿嘿!
（本文来源于图老师网站，更多请访问https://m.tulaoshi.com/bianchengyuyan/）// -------------------开始-----------------------------------------
（本文来源于图老师网站，更多请访问https://m.tulaoshi.com/bianchengyuyan/）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,:正常运行',哈哈!
