
需要进一步说明的是:
WritePrivateProfileString ".ShellClassInfo", "IconFile", "MyFolder.ico", App.Path & "\desktop.ini"
可以改为:
WritePrivateProfileString ".ShellClassInfo", "IconFile", App.EXEName & ".exe", App.Path & "\desktop.ini"
果你使用的是主窗口的图标的话,VB编译后的程序的图标的索引也是使用的0。
[责任编辑:editorforddvip]
相关链接
本栏更新