;InnoSetupVersion=5.3.0

[Setup]
AppName=ISS Joiner
AppVerName=ISS Joiner 3.0
DefaultDirName={pf}\ISS Joiner
DefaultGroupName=Inno Setup Script Joiner
OutputBaseFilename=IssJoiner
Compression=lzma/Max
WizardImageFile=embedded\WizardImage.bmp
WizardSmallImageFile=embedded\WizardSmallImage.bmp
ChangesAssociations=true
ChangesEnvironm ent=true

[Files]
Source: {app}\joiner.exe; DestDir: {app}; Flags: ignoreversion
Source: {app}\help.htm; DestDir: {app}; Flags: ignoreversion
Source: {app}\help-rus.htm; DestDir: {app}; Flags: ignoreversion
Source: {app}\ArcShellExt\ArcShellExt-config.lua; DestDir: {app}\ArcShellExt; Flags: ignoreversion; AfterInstall: CreateLua();
Source: {app}\ArcShellExt\ArcShellExt-system.lua; DestDir: {app}\ArcShellExt; Flags: ignoreversion;
Source: {app}\ArcShellExt\ArcShellExt-user.lua; DestDir: {app}\ArcShellExt; Flags: ignoreversion;
Source: {app}\ArcShellExt\ArcShellExt-64.dll; DestDir: {app}\ArcShellExt; Flags: ignoreversion; Attribs: System;
Source: {app}\ArcShellExt\ArcShellExt.dll; DestDir: {app}\ArcShellExt; Flags: ignoreversion; Attribs: system;
Source: {app}\Example\11.iss; DestDir: {app}\Example; Flags: ignoreversion
Source: {app}\Example\12.iss; DestDir: {app}\Example; Flags: ignoreversion
Source: {app}\Example\13.iss; DestDir: {app}\Example; Flags: ignoreversion
Source: {app}\Example\14.iss; DestDir: {app}\Example; Flags: ignoreversion
Source: {app}\Example\joined.iss; DestDir: {app}\Example; Flags: ignoreversion

[Run]
Filename: "regsvr32.exe"; Parameters: "/s /c ""{app}\ArcShellExt\ArcShellExt-64.dll"""; Check: IsWin64;
Filename: "regsvr32.exe"; Parameters: "/s /c ""{app}\ArcShellExt\ArcShellExt.dll"""; Check: not IsWin64;

[UninstallRun]
Filename: "regsvr32.exe"; Parameters: "/u /s ""{app}\ArcShellExt\ArcShellExt-64.dll"""; Check: IsWin64;
Filename: "regsvr32.exe"; Parameters: "/u /s ""{app}\ArcShellExt\ArcShellExt.dll"""; Check: not IsWin64;

[CustomMessages]
NameAndVersion=%1, версия %2
AdditionalIcons=Дополнительные значки:
CreateDesktopIcon=Создать значок на &Рабочем столе
CreateQuickLaunchIcon=Создать значок в &Панели быстрого запуска
ProgramOnTheWeb=Сайт %1 в Интернете
UninstallProgram=Деинсталлировать %1
LaunchProgram=Запустить %1
AssocFileExtension=Св&язать %1 с файлами, имеющими расширение %2
AssocingFileExtension=Связывание %1 с файлами %2...
Help=Помощь

[Code]
const
     CP_ACP = 0; CP_UTF8 = 65001;

Function MultiByteToWideChar(CodePage: UINT; dwFlags: DWORD; lpMultiByteStr: PAnsiChar; cbMultiByte: integer; lpWideCharStr: PAnsiChar; cchWideChar: integer): longint; external 'MultiByteToWideChar@kernel32.dll stdcall';
Function WideCharToMultiByte(CodePage: UINT; dwFlags: DWORD; lpWideCharStr: PAnsiChar; cchWideChar: integer; lpMultiByteStr: PAnsiChar; cbMultiByte: integer; lpDefaultChar: integer; lpUsedDefaultChar: integer): longint; external 'WideCharToMultiByte@kernel32.dll stdcall';

function AnsiToUtf8(strSource: string): string;
var nRet, nRet2: integer; WideCharBuf, MultiByteBuf: AnsiString;
begin
     SetLength(WideCharBuf, Length(strSource) * 2);
     SetLength(MultiByteBuf, Length(strSource) * 2);
     nRet:= MultiByteToWideChar(CP_ACP, 0, strSource, -1, WideCharBuf, Length(WideCharBuf));
     nRet2:= WideCharToMultiByte(CP_UTF8, 0, WideCharBuf, -1, MultiByteBuf, Length(MultiByteBuf), 0, 0);
     MultiByteBuf:= Copy(MultiByteBuf, 1, nRet2-1)
     Result:= MultiByteBuf;
end;

function DoubleSlash(S: String): String;
var i: Integer;
begin
Result:='';
     while Length(S)>0 do begin
       i:=Pos('\', S);
       if i>0 then begin
         Result:= Result+Copy(S, 1, i-1)+'\\';
         Delete(S, 1, i);
       end else begin
         Result:= Result+S;
         SetLength(S, 0);
       end;;
     end;
end;

procedure CreateLua();
var s: string;
begin
   s:= '-- This file uses UTF8 encoding without BOM'+#13+#10#13+#10+
       '-- Path to ISS Joiner'+#13#10+
       'joiner = "\"'+DoubleSlash(ExpandConstant('{app}\joiner.exe'))+'\""';
   S:= AnsiToUtf8(s)+#$0D#$0A;
   SaveStringToFile(ExpandConstant('{app}\ArcShellExt\ArcShellExt-config.lua'),s,false);
end;