uses registry;var reg:tregistry; begin 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; end.
