使用註冊表； 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;結尾。
