#region - Jane install script - (Nullsoft)
#include <Common_Functions.au3>
Opt('TrayIconDebug', 1)
Break(False)

; Installer.
$executable = 'Jane 1.54.exe'
; Default group folder in startmenu.
$group = 'just another nasty editor'
; Installation folder in Program Files.
$directory = 'Jane'

; Run the installer.
$pid = _Nullsoft()
ProcessWaitClose($pid)

; Remove shortcuts.
If _Programs('jane.lnk') Then
    FileMove($group & '\jane.lnk', 'General\', 9)
    DirRemove($group, 1)
EndIf

; Filetype associations.
RegWrite('HKCR\.nfo', '', 'Reg_sz', '.nfo.diz.file')
RegWrite('HKCR\.nfo.diz.file', '', 'Reg_sz', '.nfo.diz.file')
RegWrite('HKCR\.nfo.diz.file\DefaultIcon', '', 'Reg_sz', @ProgramFilesDir & '\' & $directory & '\jane.exe,0')
RegWrite('HKCR\.nfo.diz.file\Shell\Open', '', 'Reg_sz', '&Open')
RegWrite('HKCR\.nfo.diz.file\Shell\Open\Command', '', 'Reg_sz', '"' & @ProgramFilesDir & '\' & $directory & '\jane.exe" "%1"')

; Settings ini.
$file = @ProgramFilesDir & '\' & $directory & '\jane.ini'
If $directory <> '' And Not FileExists($file) Then
    IniWrite($file, 'Form', 'Count', '36')
    IniWrite($file, 'Form', 'Top', '10')
    IniWrite($file, 'Form', 'Left', '10')
    IniWrite($file, 'Form', 'Width', '300')
    IniWrite($file, 'Form', 'Height', '500')
    IniWrite($file, 'Form', 'WindowStateMaximized', '0')
    IniWrite($file, 'SavedValues', '.nfo', '')
    IniWrite($file, 'SavedValues', '.diz', '')
    IniWrite($file, 'Options', 'TryToFitWidth', '1')
    IniWrite($file, 'Options', 'Word Wrap', '0')
    IniWrite($file, 'Options', 'SaveFileExt', '3')
    IniWrite($file, 'Recently Opened Files', 'Entries', '0')
    IniWrite($file, 'FileTypes', 'Entries', '0')
    IniWrite($file, 'FileTypesBrowse', 'Entries', '0')
EndIf

; Remove files.
If FileChangeDir(@ProgramFilesDir & '\' & $directory) Then
    FileDelete('changelog.nfo')
    FileDelete('file_id.diz')
    FileDelete('jane.FAQ.nfo')
    FileDelete('jane.gif')
    FileDelete('jane.jpg')
    FileDelete('jane.nfo')
    FileDelete('license.nfo')
    FileDelete('readme.nfo')
    FileDelete("visit jane's website.url")
EndIf

Exit
#endregion