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.
本文地址：http://com.8s8s.com/it/it4182.htm