Advertisement
Najeebsk

FOLDER-MAKER1.ahk

Jul 29th, 2022
210
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. ; <COMPILER: v1.1.32.00>
  2. #Warn
  3. #NoEnv
  4. #SingleInstance, Force
  5. SendMode Input
  6. SetWorkingDir %A_ScriptDir%
  7. Icon=
  8. (Ltrim Join|
  9. 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|
  10.  
  11. 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|
  12.  
  13. 48|49|50|
  14. )
  15. ;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
  16. Gui +LastFound +AlwaysOnTop -Caption +ToolWindow +Border
  17. ;Gui, +LastFound -Caption +AlwaysOnTop
  18. ;Gui, color, 213410, 213410
  19. ;Gui, Color, 884488
  20. CustomColor = 884488
  21. Gui, Color, %CustomColor%
  22. ;WinSet, TransColor, %CustomColor% 150
  23. Gui,Font,S14 Bold,Verdana
  24. ;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
  25. Gui, Show, x250 y250 H160 W400, NAJEEB FOLDER
  26. WinSet, Region, 0-0 W400 H160 R20-20,
  27.  
  28. Gui, Font,  S16 CDefault Bold, Verdana
  29. Gui, Add, Text, x50 w400 h30, NAJEEB FOLDER MAKER
  30. Gui, Font,  S12 CDefault Bold, Verdana
  31. Gui, Add, Edit, x75 y50 w220 vfolder,
  32. Gui, Add, DropDownList, x75 y90 w220 vicon gFol, %ICON%
  33. RETURN
  34. Fol:
  35. Gui, Submit, NoHide
  36. FileCreateDir %folder% ; (optional: create a new folder)
  37.  
  38. FileSetAttrib +S, %folder%, 2
  39. ini=%folder%\desktop.ini
  40. IniWrite %A_ScriptDir%\Fol.dll, %ini%, .ShellClassInfo, IconFile
  41. IniWrite %icon%          , %ini%, .ShellClassInfo, IconIndex
  42. IniWrite 0          , %ini%, .ShellClassInfo, ConfirmFileOp
  43. return
  44. GuiClose:
  45. ExitApp
  46. ;==========================
  47. #R::Reload  ;<--  ~ Reload Script ~
  48. #S::Suspend ;<--  ~ Suspend Script ~
  49. #P::Pause   ;<--  ~ Pause Script ~
  50. #M::WinMinimize, ;<--  ~ Minimize Script ~
  51. ESC::ExitApp     ;<--  ~ Exit Script ~
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement