分享如何存取注册表信息(2)

 
　　SaveSetting“jld_app”,“startup”,“left”,100

 
　　从应用程序注册表项中读取所有关键字及其对应的值.

 
　　Dimmysettings(10,10)AsVariant

 
　　DimsettingindexAsInteger

 
　　GetAllSettings“jld_app”,“startup”

 
　　Forsettingindex=LBound(mysettings,1)ToUBound(mysettins,1)

 
　　Debug.Printmysettings(settingindex,0);“=”;mysettings(settingindex,1)

 
　　Nextsettingindex

 
　　EndSub

 
　　从应用程序注册表项中读取关键字“left“的设置.

 
　　Debug.PrintGetSetting(“jld_app”，“startup”，“left”，“notok”)

 
　　从WIN98注册表中删除小节“startup”

 
　　DeleteSetting“jld_app”，“startup”