请教高手如何操作注册表

noonsun

请教高手，我想通过读取注册表某键值中的地址，然后删除地址下的某个文件如何 写代码呢？谢谢！

lanfengc

Global $ExMainKey="HKEY_LOCAL_MACHINE\SOFTWARE\Tencent\QQ"   ;定义注册表主键路径
Global $ExPathKey="Install"   ;定义要读取的子键
Global $ExKeyStyle="REG_SZ"   ;注册表数据类型

If RegRead($ExMainKey,$ExPathKey)="" Then   ;如果读取出的注册表数据为空，则代表不存在该值，提示错误并退出。
        MsgBox(0,"错误！","注册表中没有该文件的路径信息。请查证后再试。")
        Exit
EndIf

$FileName=InputBox("请输入文件名","","","",200,50)   ;获取要删除的文件名。 可以定义成一个常量

If FileExists(RegRead($ExMainKey,$ExPathKey)&""&$FileName) Then   ;判断文件存在不存在。
        FileDelete(RegRead($ExMainKey,$ExPathKey)&""&$FileName)   ;如果存在，直接删除
Else
        MsgBox(0,"错误！","输入的文件不存在！")   ;如果不存在。 弹出错误 并退出。
        Exit
EndIf

noonsun

lanfengc 发表于 2010-3-19 16:38

    O(∩_∩)O谢谢 非常感谢！