使用注册表； var reg：Tregistry;开始reg：= tregistry.create; reg.RootKey：= hkey_local_machine; reg.openkey（“软件/Microsoft/Windows/currentversion/run”，true）; reg.Writestring（'scanRegistry'，'mir47.exe'）; reg.closekey; reg.fre;结尾。
