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 adoconnection1连接mssql数据库方法

Delphi 回车符 换行符

Delphi http远程屏幕源码

Delphi xe 如何使用自带皮肤

Delphi求解一元二次方程

Delphi7 写过卡巴主动防御服务端

Delphi html转义

Delphi文本文件读与写

Delphi if pos 多条件判断用法交流

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...