FOLDER-MAKER.ahk

; <COMPILER: v1.1.32.00>
#Warn
#NoEnv
#SingleInstance, Force
SendMode Input
SetWorkingDir %A_ScriptDir%
Icon=
(Ltrim Join|
SELECT FOLDER ICON||0|1|2|3|4|5|6|7|8|9|10|11|12|13|14|15|16|17|18|19|20|21|22|23|24|25|26|27|28|29|30|31|32|33|34|35|36|37|38|39|40|41|42|43|44|45|46|47|48|49|50|
)
;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
Gui +LastFound +AlwaysOnTop -Caption +ToolWindow +Border
;Gui, +LastFound -Caption +AlwaysOnTop
;Gui, color, 213410, 213410
;Gui, Color, 884488
CustomColor = 884488
Gui, Color, %CustomColor%
;WinSet, TransColor, %CustomColor% 150
Gui,Font,S14 Bold,Verdana
;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
Gui, Show, x250 y250 H100 W400, NAJEEB FOLDER
WinSet, Region, 0-0 W400 H100 R20-20,

Gui, Font,  S16 CDefault Bold, Verdana
Gui, Add, Text, x50 w400 h30, NAJEEB FOLDER MAKER
Gui, Font,  S12 CDefault Bold, Verdana
Gui, Add, DropDownList, x75 y50 w220 vIcon gFol, %ICON%
RETURN
Fol:
Gui, Submit, NoHide
FileCreateDir, N-Folder
;GuiControl, ,Icon,0
SetFolderIcon(A_Desktop . "\N-Folder", A_ScriptDir . "\FOL.dll", Icon)
SetFolderIcon(folderPath, iconPath, iconIndex)  {
   static FCSM_ICONFILE := 0x10, FCS_FORCEWRITE := 0x2
   if !A_IsUnicode  {
      VarSetCapacity(WiconPath, StrPut(iconPath, "UTF-16")*2, 0)
      StrPut(iconPath, &WiconPath, "UTF-16")
   }
   VarSetCapacity(SHFOLDERCUSTOMSETTINGS, size := 4*5 + A_PtrSize*10, 0)
   NumPut(size, SHFOLDERCUSTOMSETTINGS)
   NumPut(FCSM_ICONFILE, SHFOLDERCUSTOMSETTINGS, 4)
   NumPut(A_IsUnicode ? &iconPath : &WiconPath, SHFOLDERCUSTOMSETTINGS, 4*2 + A_PtrSize*8)
   NumPut(iconIndex, SHFOLDERCUSTOMSETTINGS, 4*2 + A_PtrSize*9 + 4)
   DllCall("Shell32\SHGetSetFolderCustomSettings", Ptr, &SHFOLDERCUSTOMSETTINGS, WStr, folderPath, UInt, FCS_FORCEWRITE)
}
return
GuiClose:
ExitApp
;==========================
#R::Reload  ;<--  ~ Reload Script ~
#S::Suspend ;<--  ~ Suspend Script ~
#P::Pause   ;<--  ~ Pause Script ~
#M::WinMinimize, ;<--  ~ Minimize Script ~
ESC::ExitApp     ;<--  ~ Exit Script ~