FOLDER-MAKER1.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 H160 W400, NAJEEB FOLDER
WinSet, Region, 0-0 W400 H160 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, Edit, x75 y50 w220 vfolder,
Gui, Add, DropDownList, x75 y90 w220 vicon gFol, %ICON%
RETURN
Fol:
Gui, Submit, NoHide
FileCreateDir %folder% ; (optional: create a new folder)

FileSetAttrib +S, %folder%, 2
ini=%folder%\desktop.ini
IniWrite %A_ScriptDir%\Fol.dll, %ini%, .ShellClassInfo, IconFile
IniWrite %icon%          , %ini%, .ShellClassInfo, IconIndex
IniWrite 0          , %ini%, .ShellClassInfo, ConfirmFileOp
return
GuiClose:
ExitApp
;==========================
#R::Reload  ;<--  ~ Reload Script ~
#S::Suspend ;<--  ~ Suspend Script ~
#P::Pause   ;<--  ~ Pause Script ~
#M::WinMinimize, ;<--  ~ Minimize Script ~
ESC::ExitApp     ;<--  ~ Exit Script ~