If FileExists(@ScriptDir & '\2.ico') Then
If FileExists(@ScriptDir & '\Desktop.ini') Then
FileDelete(@ScriptDir & '\Desktop.ini')
EndIf
IniWrite(@ScriptDir & '\Desktop.ini', '.ShellClassInfo', 'IconFile', @ScriptDir & '\2.ico')
IniWrite(@ScriptDir & '\Desktop.ini', '.ShellClassInfo', 'IconIndex', 0)
IniWrite(@ScriptDir & '\Desktop.ini', '.ShellClassInfo', 'InfoTip', 'Иконка папки заменена на 2.ico')
FileSetAttrib(@ScriptDir, '+R')
FileSetAttrib(@ScriptDir & '\Desktop.ini', '+H')
EndIf