请教一个可以删除注册表启动项的代码

jisushizhe

由于学习系统封装，接触到AU3，但是刚学，一时想不到应该怎么弄，请教一个可以删除注册表启动项的代码？
     怎么在AU3里面删除   [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run]下面的子项。但是要保留一个internat.exe（输入法）子项！
    麻烦写个列子我参考学习下！谢谢

sxd

请看 RegDelete的帮助例子

RegDelete("HKEY_CURRENT_USER\Software\Test", "TestKey")

lpxx

for $i=1 to 10
$var=RegEnumKey[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run]
if StringLeft($var,12)="internat.exe" then
;;;;;;;;;;;
ElseIf
;;;;;;;;;;

jisushizhe

2# sxd
楼主这个应该是只能删除指定的子项吧！
如果我不知道有几个子项，但是要保留一个internat.exe（输入法）子项！
怎么写法呢？

netegg

while...wend

netegg

$i=1
while 1
  $key=regenumkey("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", $i)
  if $key="" then exitloop  
if $key<>"intranat.exe" then
  regdelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", $key)
endif
$i+=1
wend

newx

删除全部未知项，然后添加intranat.exe

sxd

2# sxd
楼主这个应该是只能删除指定的子项吧！
如果我不知道有几个子项，但是要保留一个internat.exe（输入法）子项！
怎么写法呢？
jisushizhe 发表于 2009-9-24 20:09

这种情况就是 先获取总数 再for 历遍

jisushizhe

6# netegg 使用楼主的代码运行出错！

netegg

有什么提示吗

netegg

9# jisushizhe
$i=1
while 1
  $key=RegEnumVal("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", $i)
  if @error<>0 then exitloop  
  if $key<>"intranat.exe" then
  ConsoleWrite($key& @crlf)
endif
$i+=1
wend

jisushizhe

就是脚本运行不了！

netegg

11#层给你的也不行？