delphi 检查程序是否在（VM，VPC等）虚拟机运行 delphi(测试可用)

本文整理自网络，侵删。

 
 检查程序是否在（VM，VPC等）虚拟机运行 delphi(测试可用)
function Anti:LongBool;
var
m:array[0..2] of Byte;
begin
asm sidt m end;
if (m[1] = $00) and (m[2] = $00) then Result:=True
else
Result:=False;
end;

调用
if Anti then ExitProcess(0); 

 

相关阅读 >>

Delphi 获取webbrowser中的图片

Delphi xe5实现datetimetounix/unixtodatetime的一点小改进

Delphi readprocessmemory用法

Delphi tms web core直接从html&css设计的页面布局

Delphi cb_addstring 与lb_addstring的区别？

Delphi区分汉字和字母的函数

Delphi 字符串分割

最简单的Delphi驱动结束进程

Delphi 一个中英文记录Delphi实现

Delphi 取pe文件的引入表和导出表

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

转载请注明出处：木庄网络博客 » delphi 检查程序是否在（VM，VPC等）虚拟机运行 delphi(测试可用)