[Windows] Customize the icon of a system folder.

Flype · Post by **Flype** » Thu Jan 25, 2007 5:54 am

Code updated for 5.20+

http://msdn2.microsoft.com/en-us/library/aa969337.aspx

Procedure CustomizeFolder(FolderName.s, IconName.s) ; Customize the icon of the specified folder.
 
  If Right(FolderName, 1) <> "\"
    FolderName + "\"
  EndIf
 
  Protected FileID = CreateFile(#PB_Any, FolderName + "Desktop.ini")
 
  If FileID
    WriteStringN(FileID, "[.ShellClassInfo]")
    WriteStringN(FileID, "IconFile=" + IconName)
    WriteStringN(FileID, "IconIndex=0")
    CloseFile(FileID)
  EndIf
 
  If FileSize(FolderName + "Desktop.ini")
    ProcedureReturn PathMakeSystemFolder_(FolderName)
  EndIf
 
EndProcedure


; Specify here the folder to customize with the desired icon.

If CustomizeFolder(#PB_Compiler_Home, #PB_Compiler_Home + "Examples\Sources - Advanced\MoviePlayer\Icons\MoviePlayer.ico")
  MessageRequester("Information", "OK")
EndIf

netmaestro · Post by **netmaestro** » Thu Jan 25, 2007 1:24 pm

Wonderful tip Flype, thanks for sharing it.

Kaeru Gaman · Post by **Kaeru Gaman** » Thu Jan 25, 2007 1:34 pm

hrrm...

http://www.purebasic.fr/german/viewtopic.php?t=11744

Flype · Post by **Flype** » Thu Jan 25, 2007 2:53 pm

hrrm what ?

Sorry if it was already posted but i don't understand german at all.

Here is the french-forum link from which i found the response by myself :
http://www.purebasic.fr/french/viewtopic.php?t=6253

Kaeru Gaman · Post by **Kaeru Gaman** » Thu Jan 25, 2007 2:55 pm

so it seems it's a common topic at the moment...

Flype · Post by **Flype** » Thu Jan 25, 2007 3:02 pm

yes it's true.

german forum seems very alive and instructive.

PB · Post by PB » Sat Jan 27, 2007 4:13 am

> PathMakeSystemFolder_(FolderName)

Is this really needed? Seems to work fine without it, and I also have another
app installed (Adobe Premiere v6.5) which has its folder as a custom icon and
that folder isn't set to System type; so it makes me think it's not necessary?

ts-soft · Post by **ts-soft** » Sat Jan 27, 2007 4:44 am

@PB
Readonly flags works also. Without any flag, it doesn't work

Flype · Post by **Flype** » Sat Jan 27, 2007 5:05 am

Well, my own tests reveals that PathMakeSystemFolder is mandatory on my system (XP SP2).
It doesn't work without this API function but maybe that depends of the windows version - i don't know.

Also this is recommended by MSDN :
http://msdn.microsoft.com/library/defau ... custom.asp

maybe i'm wrong...

PB · Post by PB » Sat Jan 27, 2007 5:15 am

See my sig... I'm using XP SP2 too.

But if MSDN says to make it a System folder, then I shall too.
BTW, thanks for this tip -- it's a good one!

PureBasic Forums - English

[Windows] Customize the icon of a system folder.

[Windows] Customize the icon of a system folder.

Re: [Windows] Customize the icon of a system folder.