SHFOLDERCUSTOMSETTINGS settings;
memset(&settings, 0, sizeof(SHFOLDERCUSTOMSETTINGS));
settings.dwSize = sizeof(SHFOLDERCUSTOMSETTINGS);
settings.cchIconFile = 0;
settings.pszIconFile = szYourIconFile;
settings.iIconIndex = 0; // or whatever index you need
SHGetSetFolderCustomSettings(&settings, szYourFolderName, FCS_FORCEWRITE);

Dim settings As SHFOLDERCUSTOMSETTINGS
settings.dwSize = Marshal.SizeOf(GetType(SHFOLDERCUSTOMSETTINGS))
settings.cchIconFile = 0
settings.pszIconFile = "Icon.ico"
settings.iIconIndex = 0
SHGetSetFolderCustomSettings(settings, szYourFolderName, FCS_FORCEWRITE)

-----------------------------------
Betriebssystem: Schrott (Vista)
Entwicklungsumgebung: VS 2008

Beitrag wurde zuletzt am 16.02.10 um 22:02:09 editiert.