| 1 |
; 譖エ譁ー逕ィ繧、繝ウ繧ケ繝医?繝ゥ縺ァ縺吶??/td>
|
| 2 |
; 騾壼クク縺ィ縺ョ驕輔> |
| 3 |
; 繝サ繧「繝ウ繧、繝ウ繧ケ繝医?繝ォ諠??ア繧剃ス懈?/譖エ譁ー縺励∪縺帙s |
| 4 |
; 繝サ繧キ繝ァ繝シ繝医き繝?ヨ繧剃ス懈?縺励∪縺帙s |
| 5 |
; 繝サ繝?せ繧ッ繝医ャ繝励↓縺ゅk譖エ譁ー繧キ繝ァ繝シ繝医き繝?ヨ繧貞炎髯、縺励∪縺吶??/td>
|
| 6 |
[Setup] |
| 7 |
AppName=繧ョ繧ウ繝翫ン |
| 8 |
AppVerName=繧ョ繧ウ繝翫ン |
| 9 |
AppId=gikoNavi |
| 10 |
AppMutex=gikoNaviInstance |
| 11 |
AppPublisherURL=http://gikonavi.sourceforge.jp/ |
| 12 |
AppendDefaultDirName = no |
| 13 |
DefaultDirName={pf}\gikonavi |
| 14 |
VersionInfoDescription=繧ョ繧ウ繝翫ン繧サ繝?ヨ繧「繝??繝励Ο繧ー繝ゥ繝? |
| 15 |
DefaultGroupName=繧ョ繧ウ繝翫ン |
| 16 |
; 閾ェ蛻??迺ー蠅?↓蜷医o縺帙※縺上□縺輔> |
| 17 |
SourceDir=G:\Release |
| 18 |
OutputDir=G:\InnoSetup\Output |
| 19 |
SetupIconFile="G:\gikoNaviSFX_102\MainIcon.ico" |
| 20 |
; 繧ョ繧ウ繝翫ン縺ョ繝舌?繧ク繝ァ繝ウ縺ォ縺ゅo縺帙※縺上□縺輔> |
| 21 |
VersionInfoVersion=1.63.1.819 |
| 22 |
OutputBaseFilename=gikoNavi_b63_819_usetup |
| 23 |
CreateUninstallRegKey=no |
| 24 |
|
| 25 |
[Tasks] |
| 26 |
Name: "startmenuicon"; Description: "繧ケ繧ソ繝シ繝医Γ繝九Η繝シ縺ォ逋サ骭イ縺吶k"; GroupDescription: "繧キ繝ァ繝シ繝医き繝?ヨ"; Flags: |
| 27 |
Name: "desktopicon"; Description: "繝?せ繧ッ繝医ャ繝励↓繧キ繝ァ繝シ繝医き繝?ヨ繧剃ス懈?"; GroupDescription: "繧キ繝ァ繝シ繝医き繝?ヨ"; Flags: |
| 28 |
|
| 29 |
[Dirs] |
| 30 |
Name: "{app}\Log" |
| 31 |
Name: "{app}\Sound" |
| 32 |
Name: "{app}\config\Board" |
| 33 |
Name: "{app}\config\BoardPlugin" |
| 34 |
Name: "{app}\config\NGwords" |
| 35 |
|
| 36 |
|
| 37 |
[Files] |
| 38 |
Source: * ; Destdir: {app} ;Excludes: "gikoNavi.*" ; Flags: ignoreversion ; |
| 39 |
Source: "gikoNavi.bmp" ; Destdir: {app} ;Permissions: everyone-full; Flags: onlyifdoesntexist |
| 40 |
Source: "gikoNavi.avi" ; Destdir: {app} ;Permissions: everyone-full; Flags: onlyifdoesntexist |
| 41 |
Source: "gikoNavi.exe" ; Destdir: {app} ;Permissions: everyone-full; Flags: ignoreversion |
| 42 |
Source: "Sound\*" ; Destdir: {app}\Sound ;Flags: createallsubdirs recursesubdirs ; |
| 43 |
Source: "config\*" ; Destdir: {app}\config ;Excludes: "*.dll";Flags: createallsubdirs recursesubdirs ; |
| 44 |
Source: "config\BoardPlugin\*.dll" ; Destdir: {app}\config\BoardPlugin ;Flags: ignoreversion; |
| 45 |
|
| 46 |
;[Icons] |
| 47 |
;Name: "{group}\Readme"; Filename: "{app}\readme.txt"; Tasks: startmenuicon |
| 48 |
;Name: "{group}\繧ョ繧ウ繝翫ン"; Filename: "{app}\gikoNavi.exe"; Tasks: startmenuicon |
| 49 |
;Name: "{commondesktop}\繧ョ繧ウ繝翫ン"; Filename: "{app}\gikoNavi.exe"; Tasks: desktopicon |
| 50 |
|
| 51 |
[Run] |
| 52 |
Filename: "{app}\readme.txt"; Description: "README繧定。ィ遉コ縺吶k"; Flags: postinstall shellexec skipifsilent unchecked |
| 53 |
Filename: "{app}\gikoNavi.exe"; Description: "繧「繝励Μ繧ア繝シ繧キ繝ァ繝ウ繧定オキ蜍輔☆繧?quot;; Flags: postinstall shellexec |
| 54 |
|
| 55 |
[InstallDelete] |
| 56 |
Type: files; Name: "{userdesktop}\繧ョ繧ウ繝翫ン譖エ譁ー.lnk" |
| 57 |
|
| 58 |
[UninstallDelete] |
| 59 |
Type: files; Name: "{app}\sent.ini" |
| 60 |
Type: files; Name: "{app}\url.ini" |
| 61 |
Type: files; Name: "{app}\Samba.ini" |
| 62 |
Type: files; Name: "{app}\gikoNavi.ini" |
| 63 |
|
| 64 |
[Languages] |
| 65 |
Name: japanese; MessagesFile: compiler:Languages\Japanese.isl |
| 66 |
|
| 67 |
[Code] |
| 68 |
function InitializeSetup(): Boolean; |
| 69 |
var |
| 70 |
timeout : Integer; |
| 71 |
begin |
| 72 |
Result := true; |
| 73 |
// 繧ソ繧、繝?繧「繧ヲ繝域凾髢?蛻?/td>
|
| 74 |
timeout := 60 * 1000; |
| 75 |
// 繧ョ繧ウ繝翫ン縺ョ襍キ蜍墓凾繝溘Η繝シ繝?ャ繧ッ繧ケ繧偵メ繧ァ繝?け |
| 76 |
while CheckForMutexes('gikoNaviInstance') do begin |
| 77 |
// 襍キ蜍穂クュ縺ェ縺ョ縺ァ繧ケ繝ェ繝シ繝?/td>
|
| 78 |
// 縺セ縺壹?縲√ち繧、繝?繧「繧ヲ繝医メ繧ァ繝?け |
| 79 |
if (timeout < 0) then begin |
| 80 |
// 繧ソ繧、繝?繧「繧ヲ繝?/td>
|
| 81 |
Result := False; |
| 82 |
break; |
| 83 |
end; |
| 84 |
timeout := timeout - 500; |
| 85 |
// 繧ケ繝ェ繝シ繝?/td>
|
| 86 |
Sleep(500); |
| 87 |
end; |
| 88 |
// 繧ソ繧、繝?繧「繧ヲ繝域凾縺ッ縲∵焔蜍輔〒繧ョ繧ウ繝翫ン繧キ繝」繝?ヨ繝?繧ヲ繝ウ繧定ヲ∵ア?/td>
|
| 89 |
if not Result Then begin |
| 90 |
if MsgBox('繧ョ繧ウ繝翫ン縺瑚オキ蜍輔@縺ヲ縺?k縺九?ょョ悟?縺ォ邨ゆコ?@縺ヲ縺?∪縺帙s縲ゅぐ繧ウ繝翫ン縺ョ邨ゆコ?r遒コ隱阪@縺ヲ縺上□縺輔>縲?#39; |
| 91 |
+ #10#13 + '譖エ譁ー繧堤カ夊。後☆繧九↓縺ッ,縲後?縺??阪?繧ソ繝ウ繧呈款縺励※縺上□縺輔>縲?#39;, |
| 92 |
mbConfirmation, MB_YESNO) = IDYES then begin |
| 93 |
Result := not CheckForMutexes('gikoNaviInstance'); |
| 94 |
if not Result Then begin |
| 95 |
MsgBox('繧ョ繧ウ繝翫ン縺瑚オキ蜍輔@縺ヲ縺?∪縺吶?ゅぐ繧ウ繝翫ン譖エ譁ー繧偵く繝」繝ウ繧サ繝ォ縺励∪縺吶??#39; |
| 96 |
+ #10#13 + '繧ョ繧ウ繝翫ン譖エ譁ー縺ッ縲√ョ繧ケ繧ッ繝医ャ繝励?縲後ぐ繧ウ繝翫ン譖エ譁ー縲阪す繝ァ繝シ繝医き繝?ヨ縺九i蜀崎オキ蜍輔〒縺阪∪縺吶??#39; |
| 97 |
, mbError, MB_OK); |
| 98 |
end; |
| 99 |
end else begin |
| 100 |
MsgBox('繧ョ繧ウ繝翫ン譖エ譁ー繧偵く繝」繝ウ繧サ繝ォ縺励∪縺吶??#39; |
| 101 |
+ #10#13 + '繧ョ繧ウ繝翫ン譖エ譁ー縺ッ縲√ョ繧ケ繧ッ繝医ャ繝励?縲後ぐ繧ウ繝翫ン譖エ譁ー縲阪す繝ァ繝シ繝医き繝?ヨ縺九i蜀崎オキ蜍輔〒縺阪∪縺吶??#39; |
| 102 |
, mbError, MB_OK); |
| 103 |
end; |
| 104 |
end; |
| 105 |
end; |
| 106 |
|
| 107 |
procedure CurStepChanged(CurStep: TSetupStep); |
| 108 |
var |
| 109 |
path :String; |
| 110 |
srcpath: String; |
| 111 |
begin |
| 112 |
case CurStep of |
| 113 |
ssInstall: |
| 114 |
begin |
| 115 |
if (RegKeyExists(HKEY_LOCAL_MACHINE, |
| 116 |
'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\gikoNavi')) then |
| 117 |
begin |
| 118 |
if MsgBox('莉・蜑阪?繝舌?繧ク繝ァ繝ウ縺ョ繧「繝ウ繧、繝ウ繧ケ繝医?繝ォ諠??ア繧貞炎髯、縺励※繧医m縺励>縺ァ縺励g縺?°??#39; |
| 119 |
+ #10#13 + '(繝舌ち56莉・蜑阪°繧峨?繧「繝??繝??繝医?蝣エ蜷医?後?縺??肴耳螂ィ)', |
| 120 |
mbConfirmation, MB_YESNO) = IDYES then |
| 121 |
begin |
| 122 |
if not RegDeleteKeyIncludingSubkeys(HKEY_LOCAL_MACHINE, |
| 123 |
'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\gikoNavi') then |
| 124 |
begin |
| 125 |
MsgBox('繧「繝ウ繧、繝ウ繧ケ繝医?繝ォ諠??ア縺ョ蜑企勁縺ォ螟ア謨励@縺セ縺励◆縲?#39;, mbError, MB_OK); |
| 126 |
end; |
| 127 |
end; |
| 128 |
end; |
| 129 |
end; |
| 130 |
ssPostInstall: |
| 131 |
begin |
| 132 |
path := ExpandConstant('{app}') + '\gikoNavi.ini'; |
| 133 |
srcpath := ExpandConstant('{srcexe}'); |
| 134 |
if (FileExists(path)) then |
| 135 |
begin |
| 136 |
SetIniString('Update', 'Remove0', srcpath, path); |
| 137 |
end; |
| 138 |
end; |
| 139 |
end; |
| 140 |
|
| 141 |
end; |
| 142 |
procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep); |
| 143 |
var |
| 144 |
path :String; |
| 145 |
begin |
| 146 |
case CurUninstallStep of |
| 147 |
usUninstall: |
| 148 |
begin |
| 149 |
path := ExpandConstant('{app}') + '\Log'; |
| 150 |
if MsgBox(path + '繝輔か繝ォ繝?莉・荳九r螳悟?縺ォ豸亥悉縺励※繧医m縺励>縺ァ縺励g縺?°??#39;, mbConfirmation, MB_YESNO) = IDYES then |
| 151 |
begin |
| 152 |
DelTree(path, True, True, True); |
| 153 |
end; |
| 154 |
|
| 155 |
path := ExpandConstant('{app}') + '\config'; |
| 156 |
if MsgBox(path + '繝輔か繝ォ繝?莉・荳九r螳悟?縺ォ豸亥悉縺励※繧医m縺励>縺ァ縺励g縺?°??#39;, mbConfirmation, MB_YESNO) = IDYES then |
| 157 |
begin |
| 158 |
DelTree(path, True, True, True); |
| 159 |
end; |
| 160 |
|
| 161 |
end; |
| 162 |
usPostUninstall: |
| 163 |
begin |
| 164 |
path := ExpandConstant('{app}'); |
| 165 |
|
| 166 |
MsgBox(path + '繝輔か繝ォ繝?莉・荳九↓縲∝炎髯、縺励″繧後↑縺?ヵ繧。繧、繝ォ縺梧ョ九▲縺ヲ縺?k蝣エ蜷医′縺ゅj縺セ縺吶??#39; #10#13 '遒コ隱阪?縺?∴謇句虚縺ァ蜑企勁縺励※縺上□縺輔>縲?#39;, |
| 167 |
mbInformation, MB_OK); |
| 168 |
end; |
| 169 |
end; |
| 170 |
end; |
| 171 |
|