#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=icon.ico
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

; REG_SZ, REG_MULTI_SZ, REG_EXPAND_SZ, REG_DWORD, REG_QWORD, or REG_BINARY

If MsgBox(36, 'Iconizer', 'Click [Yes] to install...') = 7 Then
	RegDelete('HKCR\Folder\shell\Iconize')
	RegDelete('HKCR\Drive\shell\Iconize')
	MsgBox(64, 'Iconizer', 'Removed!')
	Exit
EndIf

; ARGUMENTS = option: drive|folder, path, icon

RegWrite('HKCR\Folder\shell\Iconize', 'SubCommands', 'REG_SZ', '')
RegWrite('HKCR\Folder\shell\Iconize', 'Icon', 'REG_SZ', @ScriptDir & '\Iconize.exe')

RegWrite('HKCR\Folder\shell\Iconize\Shell\0', '', 'REG_SZ', 'Custom...')
RegWrite('HKCR\Folder\shell\Iconize\Shell\0', 'Icon', 'REG_SZ', @ScriptDir & '\Iconize.exe')
RegWrite('HKCR\Folder\shell\Iconize\Shell\0\Command', '', 'REG_SZ', @ScriptDir & '\Iconize.exe "folder" "%v"')

RegWrite('HKCR\Drive\shell\Iconize', 'SubCommands', 'REG_SZ', '')
RegWrite('HKCR\Drive\shell\Iconize', 'Icon', 'REG_SZ', @ScriptDir & '\Iconize.exe')

RegWrite('HKCR\Drive\shell\Iconize\Shell\0', '', 'REG_SZ', 'Custom...')
RegWrite('HKCR\Drive\shell\Iconize\Shell\0', 'Icon', 'REG_SZ', @ScriptDir & '\Iconize.exe')
RegWrite('HKCR\Drive\shell\Iconize\Shell\0\Command', '', 'REG_SZ', @ScriptDir & '\Iconize.exe "drive" "%v"')

Local $Colors, $c[13] = ['Red','Orange','Yellow','Brown','Lime','Green','Cyan','Blue','Pink','Purple','White','Gray','Black']
For $i = 0 To 12
	$Colors = @ScriptDir & '\Icons\Colors\' & $c[$i] & '.ico'

	RegWrite('HKCR\Folder\shell\Iconize\Shell\' & $c[$i], 'Icon', 'REG_SZ', $Colors)
	RegWrite('HKCR\Folder\shell\Iconize\Shell\' & $c[$i] & '\Command', '', 'REG_SZ', @ScriptDir & '\Iconize.exe "folder" "%v" "' & $Colors & '"')

	$Colors = @ScriptDir & '\Icons\Drives\' & $c[$i] & '.ico'

	RegWrite('HKCR\Drive\shell\Iconize\Shell\' & $c[$i], 'Icon', 'REG_SZ', $Colors)
	RegWrite('HKCR\Drive\shell\Iconize\Shell\' & $c[$i] & '\Command', '', 'REG_SZ', @ScriptDir & '\Iconize.exe "drive" "%v" "' & $Colors & '"')
Next

MsgBox(64, 'Installer', 'Installed!')