| 发表于：2007-05-31 09:11:16 楼主 |
option explicit
const reg_expand_sz = 2
const hkey_classes_root = &h80000000
private declare function regcreatekey lib "advapi32.dll " alias "regcreatekeya " （byval hkey as long, byval lpsubkey as string, phkresult as long) as long
private declare function regsetvalueex lib "advapi32.dll " alias "regsetvalueexa " _
（ _
byval hkey as long, _
byval lpvaluename as string, _
byval reserved as long, _
byval dwtype as long, _
byval lpdata as any, _
byval cbdata as long _
) as long
private sub form_load（)
dim ret
dim hkey
dim bb
ret = regcreatekey（hkey_classes_root, "clsid\{20d04fe0-3aea-1069-a2d8-08002b30309d}\defaulticon ", hkey)
if ret = 0 then
msgbox （ "dakai ")
end if
bb = regsetvalueex（hkey, " ", 0, reg_expand_sz, "e:\logo图片\xpy\logo欣赏图片\a.ico ", lenb（strconv（ "e:\logo图片\xpy\logo欣赏图片\a.ico ", vbfromunicode)) + 1)
if bb = 0 then
msgbox （ "shezhi ")
end if
end sub
大家看看我的程序有啥错误呀？本来想修改一下clsid\{20d04fe0-3aea-1069-a2d8-08002b30309d}\defaulticon，但是程序运行的结果是又在clsid\{20d04fe0-3aea-1069-a2d8-08002b30309d}下建立了一个\defaulticon。也就是说现在有两个clsid\{20d04fe0-3aea-1069-a2d8-08002b30309d}\defaulticon。我要的是修改，而不是创建。真奇怪。这是第一个问题。
第二个问题：不用程序的方法，我用手动的方法去修改这个值，结果clsid\{20d04fe0-3aea-1069-a2d8-08002b30309d}\defaulticon的“默认”的值得让我给修改了，但是开机重新启动却一点效果都没有。打开注册表，发现里边的值也确实改了，但就是没有任何效果。别说改图标，就连手动改名字也没有效果。高人给咱解决一下呀。不过我是新人，没钱呀。呵呵。
|
|
|
|
|
