核心提示：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内，会报错并传回出错信息
