Delphi中嵌入汇编检测是否在虚拟机里运行

本文整理自网络，侵删。

 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;
本文来自Delphi之窗，原文地址：http://www.52delphi.com
 

相关阅读 >>

Delphi 获取所有磁盘分区

Delphi 屏幕渐变效果的源代码

Delphi执行cmd命令和bat文件

Delphi firemonkey 图片显示拉伸不变形

Delphi编辑环境

Delphi过程函数传递参数的八种方式

Delphi+access错误"不正常地定义参数对象。提供了不一致或不完整的信息。"

Delphi webbrowser 滚动条的去除、边框去除

Delphi 建立最小的应用程序

Delphi win10系统已管理员的权限运行应用程序

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi中嵌入汇编检测是否在虚拟机里运行