您现在的位置:首页 >> 硬件系统 >> 硬件系统 >> 内容

Delphi判断程序是否在Virtual PC内运行

时间:2011/9/3 15:20:16 点击:

  核心提示:function IsRunInVPC(out ErrMsg: string): Boolean;beginResult := False;try asm push ebx mov ebx, 0 mo...
function IsRunInVPC(out ErrMsg: string): Boolean;
begin
Result := False;
try
    asm
      push ebx
      mov ebx, 0
      mov eax, 1
      db 0Fh, 3Fh, 07h, 0Bh
      test ebx, ebx
      setz [Result]
      pop ebx
    end;
except
    on E: Exception do
      ErrMsg := E.Message;
end;
end;

调用时,若不在VPC内,会报错并传回出错信息

作者:rarnu 来源:转载
共有评论 0相关评论
发表我的评论
  • 大名:
  • 内容:
  • 盒子文章(www.2ccc.com) © 2022 版权所有 All Rights Reserved.
  • 沪ICP备05001939号