cpu编码获取源码，delphi xe实例。