更新用インストーラ作成セットアップファイル

diff --git a/readme/gikoUSetup.iss b/readme/gikoUSetup.iss
new file mode 100644 (file)
index 0000000..ed18a45
--- /dev/null
+++ b/readme/gikoUSetup.iss
@@ -0,0 +1,119 @@
+; \8dX\90V\97p\83C\83\93\83X\83g\81[\83\89\82Å\82·\81B
+; \92Ê\8fí\82Æ\82Ì\88á\82¢
+; \81E\83A\83\93\83C\83\93\83X\83g\81[\83\8b\8fî\95ñ\82ð\8dì\90¬/\8dX\90V\82µ\82Ü\82¹\82ñ
+; \81E\83V\83\87\81[\83g\83J\83b\83g\82ð\8dì\90¬\82µ\82Ü\82¹\82ñ
+; \81E\83f\83X\83N\83g\83b\83v\82É\82 \82é\8dX\90V\83V\83\87\81[\83g\83J\83b\83g\82ð\8dí\8f\9c\82µ\82Ü\82·\81B
+[Setup]
+AppName=\83M\83R\83i\83r
+AppVerName=\83M\83R\83i\83r
+AppId=gikoNavi
+AppMutex=http://gikonavi.sourceforge.jp/gikonavi/mutex
+AppPublisherURL=http://gikonavi.sourceforge.jp/
+AppendDefaultDirName = no
+DefaultDirName={pf}\gikonavi
+VersionInfoDescription=\83M\83R\83i\83r\83Z\83b\83g\83A\83b\83v\83v\83\8d\83O\83\89\83\80
+DefaultGroupName=\83M\83R\83i\83r
+; \8e©\95ª\82Ì\8aÂ\8b«\82É\8d\87\82í\82¹\82Ä\82­\82¾\82³\82¢
+SourceDir=G:\Release
+OutputDir=G:\InnoSetup\Output
+SetupIconFile="G:\gikoNaviSFX_102\MainIcon.ico"
+; \83M\83R\83i\83r\82Ì\83o\81[\83W\83\87\83\93\82É\82 \82í\82¹\82Ä\82­\82¾\82³\82¢
+VersionInfoVersion=1.59.0.769
+OutputBaseFilename=gikoNavi_b59_769_usetup
+CreateUninstallRegKey=no
+
+[Tasks]
+Name: "startmenuicon"; Description: "\83X\83^\81[\83g\83\81\83j\83\85\81[\82É\93o\98^\82·\82é"; GroupDescription: "\83V\83\87\81[\83g\83J\83b\83g"; Flags:
+Name: "desktopicon"; Description: "\83f\83X\83N\83g\83b\83v\82É\83V\83\87\81[\83g\83J\83b\83g\82ð\8dì\90¬"; GroupDescription: "\83V\83\87\81[\83g\83J\83b\83g"; Flags:
+
+[Dirs]
+Name: "{app}\Log"
+Name: "{app}\Sound"
+Name: "{app}\config\Board"
+Name: "{app}\config\BoardPlugin"
+Name: "{app}\config\NGwords"
+
+
+[Files]
+Source: * ; Destdir: {app} ;Excludes: "gikoNavi.exe" ;
+Source: "gikoNavi.exe" ; Destdir: {app} ;Permissions: everyone-full; Flags: ignoreversion
+Source: "Sound\*" ; Destdir: {app}\Sound ;Flags: createallsubdirs recursesubdirs ;
+Source: "config\*" ; Destdir: {app}\config ;Excludes: "*.dll";Flags: createallsubdirs recursesubdirs ;
+Source: "config\BoardPlugin\*.dll" ; Destdir: {app}\config\BoardPlugin ;Flags: ignoreversion;
+
+;[Icons]
+;Name: "{group}\Readme"; Filename: "{app}\readme.txt"; Tasks: startmenuicon
+;Name: "{group}\\83M\83R\83i\83r"; Filename: "{app}\gikoNavi.exe"; Tasks: startmenuicon
+;Name: "{commondesktop}\\83M\83R\83i\83r"; Filename: "{app}\gikoNavi.exe"; Tasks: desktopicon
+
+[Run]
+Filename: "{app}\readme.txt"; Description: "README\82ð\95\\8e¦\82·\82é"; Flags: postinstall shellexec skipifsilent unchecked
+Filename: "{app}\gikoNavi.exe"; Description: "\83A\83v\83\8a\83P\81[\83V\83\87\83\93\82ð\8bN\93®\82·\82é"; Flags: postinstall shellexec
+
+[InstallDelete]
+Type: files; Name: "{userdesktop}\\83M\83R\83i\83r\8dX\90V.lnk"
+
+[UninstallDelete]
+Type: files; Name: "{app}\sent.ini"
+Type: files; Name: "{app}\url.ini"
+Type: files; Name: "{app}\Samba.ini"
+Type: files; Name: "{app}\gikoNavi.ini"
+
+[Languages]
+Name: japanese; MessagesFile: compiler:Languages\Japanese.isl
+
+[Code]
+
+procedure CurStepChanged(CurStep: TSetupStep);
+begin
+  case CurStep of
+    ssInstall:
+      begin
+        if (RegKeyExists(HKEY_LOCAL_MACHINE,
+            'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\gikoNavi')) then
+          begin
+            if MsgBox('\88È\91O\82Ì\83o\81[\83W\83\87\83\93\82Ì\83A\83\93\83C\83\93\83X\83g\81[\83\8b\8fî\95ñ\82ð\8dí\8f\9c\82µ\82Ä\82æ\82ë\82µ\82¢\82Å\82µ\82å\82¤\82©\81H'
+              + #10#13 + '(\83o\83^56\88È\91O\82©\82ç\82Ì\83A\83b\83v\83f\81[\83g\82Ì\8fê\8d\87\81u\82Í\82¢\81v\90\84\8f§)',
+               mbConfirmation, MB_YESNO) = IDYES then
+              begin
+                  if not RegDeleteKeyIncludingSubkeys(HKEY_LOCAL_MACHINE,
+                    'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\gikoNavi') then
+                    begin
+                      MsgBox('\83A\83\93\83C\83\93\83X\83g\81[\83\8b\8fî\95ñ\82Ì\8dí\8f\9c\82É\8e¸\94s\82µ\82Ü\82µ\82½\81B', mbError, MB_OK);
+                    end;
+              end;
+          end;
+      end;
+  end;
+
+end;
+procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
+var
+  path :String;
+begin
+  case CurUninstallStep of
+    usUninstall:
+      begin
+        path := ExpandConstant('{app}') + '\Log';
+        if MsgBox(path + '\83t\83H\83\8b\83_\88È\89º\82ð\8a®\91S\82É\8fÁ\8b\8e\82µ\82Ä\82æ\82ë\82µ\82¢\82Å\82µ\82å\82¤\82©\81H', mbConfirmation, MB_YESNO) = IDYES then
+        begin
+          DelTree(path, True, True, True);
+        end;
+
+        path := ExpandConstant('{app}') + '\config';
+        if MsgBox(path + '\83t\83H\83\8b\83_\88È\89º\82ð\8a®\91S\82É\8fÁ\8b\8e\82µ\82Ä\82æ\82ë\82µ\82¢\82Å\82µ\82å\82¤\82©\81H', mbConfirmation, MB_YESNO) = IDYES then
+        begin
+          DelTree(path, True, True, True);
+        end;
+
+      end;
+    usPostUninstall:
+      begin
+        path := ExpandConstant('{app}');
+
+        MsgBox(path + '\83t\83H\83\8b\83_\88È\89º\82É\81A\8dí\8f\9c\82µ\82«\82ê\82È\82¢\83t\83@\83C\83\8b\82ª\8ec\82Á\82Ä\82¢\82é\8fê\8d\87\82ª\82 \82è\82Ü\82·\81B' #10#13 '\8am\94F\82Ì\82¤\82¦\8eè\93®\82Å\8dí\8f\9c\82µ\82Ä\82­\82¾\82³\82¢\81B',
+          mbInformation, MB_OK);
+      end;
+  end;
+end;
+