readme/gikoSetup.iss

   1 [Setup]
   2 AppName=\83M\83R\83i\83r
   3 AppVerName=\83M\83R\83i\83r
   4 AppId=gikoNavi
   5 AppMutex=http://gikonavi.sourceforge.jp/gikonavi/mutex
   6 AppPublisherURL=http://gikonavi.sourceforge.jp/
   7 AppendDefaultDirName = no
   8 DefaultDirName={pf}\gikonavi
   9 VersionInfoDescription=\83M\83R\83i\83r\83Z\83b\83g\83A\83b\83v\83v\83\8d\83O\83\89\83\80
  10 DefaultGroupName=\83M\83R\83i\83r
  11 ; \8e©\95ª\82Ì\8aÂ\8b«\82É\8d\87\82í\82¹\82Ä\82\82¾\82³\82¢
  12 SourceDir=G:\Release61
  13 OutputDir=G:\InnoSetup\Output
  14 SetupIconFile="G:\gikoNaviSFX_102\MainIcon.ico"
  15 ; \83M\83R\83i\83r\82Ì\83o\81[\83W\83\87\83\93\82É\82 \82í\82¹\82Ä\82\82¾\82³\82¢
  16 VersionInfoVersion=1.61.1.801
  17 OutputBaseFilename=gikoNavi_b61_setup
  18
  19
  20
  21 [Tasks]
  22 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:
  23 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:
  24
  25 [Dirs]
  26 Name: "{app}\Log"
  27 Name: "{app}\Sound"
  28 Name: "{app}\config\Board"
  29 Name: "{app}\config\BoardPlugin"
  30 Name: "{app}\config\NGwords"
  31
  32
  33 [Files]
  34 Source: * ; Destdir: {app} ;Excludes: "gikoNavi.exe" ;
  35 Source: "gikoNavi.exe" ; Destdir: {app} ;Permissions: everyone-full; Flags: ignoreversion
  36 Source: "Sound\*" ; Destdir: {app}\Sound ;Flags: createallsubdirs recursesubdirs ;
  37 Source: "config\*" ; Destdir: {app}\config ;Excludes: "*.dll";Flags: createallsubdirs recursesubdirs ;
  38 Source: "config\BoardPlugin\*.dll" ; Destdir: {app}\config\BoardPlugin ;Flags: ignoreversion;
  39
  40 [Icons]
  41 Name: "{group}\Readme"; Filename: "{app}\readme.txt"; Tasks: startmenuicon
  42 Name: "{group}\\83M\83R\83i\83r"; Filename: "{app}\gikoNavi.exe"; WorkingDir: "{app}"; Tasks: startmenuicon
  43 Name: "{commondesktop}\\83M\83R\83i\83r"; Filename: "{app}\gikoNavi.exe"; WorkingDir: "{app}"; Tasks: desktopicon
  44
  45 [Run]
  46 Filename: "{app}\readme.txt"; Description: "README\82ð\95\\8e¦\82·\82é"; Flags: postinstall shellexec skipifsilent unchecked
  47 Filename: "{app}\gikoNavi.exe"; Description: "\83A\83v\83\8a\83P\81[\83V\83\87\83\93\82ð\8bN\93®\82·\82é"; Flags: postinstall shellexec skipifsilent
  48
  49 [UninstallDelete]
  50 Type: files; Name: "{app}\sent.ini"
  51 Type: files; Name: "{app}\url.ini"
  52 Type: files; Name: "{app}\Samba.ini"
  53 Type: files; Name: "{app}\gikoNavi.ini"
  54
  55 [Languages]
  56 Name: japanese; MessagesFile: compiler:Languages\Japanese.isl
  57
  58 [Code]
  59 procedure CurStepChanged(CurStep: TSetupStep);
  60 var
  61   path :String;
  62   srcpath: String;
  63 begin
  64   case CurStep of
  65     ssInstall:
  66       begin
  67         if (RegKeyExists(HKEY_LOCAL_MACHINE,
  68             'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\gikoNavi')) then
  69           begin
  70             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'
  71               + #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§)',
  72                mbConfirmation, MB_YESNO) = IDYES then
  73               begin
  74                   if not RegDeleteKeyIncludingSubkeys(HKEY_LOCAL_MACHINE,
  75                     'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\gikoNavi') then
  76                     begin
  77                       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);
  78                     end;
  79               end;
  80           end;
  81       end;
  82     ssPostInstall:
  83       begin
  84         path := ExpandConstant('{app}') + '\gikoNavi.ini';
  85         srcpath := ExpandConstant('{srcexe}');
  86         if (FileExists(path)) then
  87         begin
  88           SetIniString('Update', 'Remove0', srcpath, path);
  89         end;
  90       end;
  91   end;
  92
  93 end;
  94 procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
  95 var
  96   path :String;
  97 begin
  98   case CurUninstallStep of
  99     usUninstall:
 100       begin
 101         path := ExpandConstant('{app}') + '\Log';
 102         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
 103         begin
 104           DelTree(path, True, True, True);
 105         end;
 106
 107         path := ExpandConstant('{app}') + '\config';
 108         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
 109         begin
 110           DelTree(path, True, True, True);
 111         end;
 112
 113       end;
 114     usPostUninstall:
 115       begin
 116         path := ExpandConstant('{app}');
 117
 118         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',
 119           mbInformation, MB_OK);
 120       end;
 121   end;
 122 end;
 123