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);