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 如何判断某一窗口最大化

Delphi 取目录下指定文件到列表

Delphi安卓动态切换本地主题

Delphi获取系统电源状态的信息

Delphi窗体固定在桌面上

Delphi 双进程监控保护

Delphi getdrivetypea() 查看驱动器类型

Delphi根据网络链接截取域名

Delphi将n个相同字符提取到左边，m个相同字符提取到右边

Delphi tadocommand 中文使用说明

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

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