Develop and Download Open Source Software

Browse CVS Repository

Contents of /gikonavigoeson/gikonavi/readme/gikoUSetup.iss

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph


Revision 1.13 - (show annotations) (download)
Sun Nov 20 10:24:26 2011 UTC (12 years, 5 months ago) by h677
Branch: MAIN
CVS Tags: v1_63_1_819, HEAD
Branch point for: Bb63
Changes since 1.12: +2 -2 lines
・マ。ォ・ソ」カ」ウ

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

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26