| 发表于:2007-01-10 12:18:036楼 得分:0 |
这是注册扩展名的方法,帮忙看下最后一行有错吗? public sub createexpname() dim sysreg as registrykey dim subreg as registrykey sysreg = registry.classesroot subreg = sysreg.createsubkey( ". " + strapp.expname) subreg.setvalue( " ", strapp.expname, registryvaluekind.string) subreg = sysreg.createsubkey(strapp.expname) subreg.setvalue( " ", "公司名 ", registryvaluekind.string) dim subreg2 as registrykey = subreg.createsubkey( "defaulticon ") subreg2.setvalue( " ", application.EXECutablepath + ",0 ") subreg = subreg.createsubkey( "shell ") subreg = subreg.createsubkey( "open ") subreg = subreg.createsubkey( "command ") subreg.setvalue( " ", application.EXECutablepath + " 1% ", registryvaluekind.string) end sub 或者帮忙看下整个过程有没有错? | | |
|