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 tidhttp 超时设置无效的解决方法

Delphi 模似键盘输入又一方法

Delphi idhttp 实战用法(tidhttpex)

Delphi dbgrid适应宽度

Delphi 字符串加单引号

Delphi 根据关键字取关键词以后的字符串

Delphi imagelist-图片（bmp）按名称而不按索引

Delphi 取得开机时间 开机时间总长度（可精确到秒，分钟等）

Delphi在memo按键实现全选

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

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