Question

vb6如何设置文件的ico

就是我做了一个图片预览器，我想像看图王或迅雷那样，以这个程序为打开方式的文件替换为指定的ico！
求大神帮帮忙！！

Answer 1

这个不是设置文件的ICO，是文件关联

下面的代码实现了注册文件扩展名、图标、打开方式，以打开txt文件为例，你要实现图片查看的，方法类似

'声明以下常数和API函数

Private Const REG_SZ = 1                         ' Unicode nul terminated string
Private Const HKEY_CLASSES_ROOT = &H80000000
Private Declare Function RegSetValue Lib "advapi32.dll" Alias "RegSetValueA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal dwType As Long, ByVal lpData As String, ByVal cbData As Long) As Long
'cbData为字符串lpData的长度，一个汉字为两个字节
'使用示例，注册一种扩展名123的文件，缺省打开方式为用记事本
Private Sub Command1_Click()
'注册文件类型.123为file123
RegSetValue HKEY_CLASSES_ROOT, ".123", REG_SZ, "file123", 7
'设置文件类型file123的图标与记事本的图标相同
RegSetValue HKEY_CLASSES_ROOT, "file123\DefaultIcon", REG_SZ, "c:\windows\notepad.exe,0", 24
'设置file123的缺省打开方式为read
RegSetValue HKEY_CLASSES_ROOT, "file123\Shell", REG_SZ, "read", 4
'设置file123的右键菜单read显示的菜单项名称为"阅读.123文件"
RegSetValue HKEY_CLASSES_ROOT, "file123\Shell\read", REG_SZ, "阅读.123文件", 12
'设置文件类型file123的缺省打开方式为用记事本打开
RegSetValue HKEY_CLASSES_ROOT, "file123\Shell\read\Command", REG_SZ, "c:\windows\notepad.exe ""%1""", 22
End Sub