|
|
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://www.delphifans.com/infoView/Article_474.html |
|
京ICP备14020293号-2
本网站内容均收集于互联网，如有问题请联系QQ:389897944予以删除
窥视卡
雷达卡
楼主
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
显身卡