Develop and Download Open Source Software

Browse CVS Repository

Contents of /gikonavigoeson/gikonavi/readme/gikoSetup.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: +3 -3 lines
・マ。ォ・ソ」カ」ウ

1 [Setup]
2 AppName=繧ョ繧ウ繝翫ン
3 AppVerName=繧ョ繧ウ繝翫ン
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=繧ョ繧ウ繝翫ン繧サ繝?ヨ繧「繝??繝励Ο繧ー繝ゥ繝?
10 DefaultGroupName=繧ョ繧ウ繝翫ン
11 ; 閾ェ蛻??迺ー蠅?↓蜷医o縺帙※縺上□縺輔>
12 SourceDir=G:\Release63
13 OutputDir=G:\InnoSetup\Output
14 SetupIconFile="G:\gikoNaviSFX_102\MainIcon.ico"
15 ; 繧ョ繧ウ繝翫ン縺ョ繝舌?繧ク繝ァ繝ウ縺ォ縺ゅo縺帙※縺上□縺輔>
16 VersionInfoVersion=1.63.1.819
17 OutputBaseFilename=gikoNavi_b63_setup
18
19
20
21 [Tasks]
22 Name: "startmenuicon"; Description: "繧ケ繧ソ繝シ繝医Γ繝九Η繝シ縺ォ逋サ骭イ縺吶k"; GroupDescription: "繧キ繝ァ繝シ繝医き繝?ヨ"; Flags:
23 Name: "desktopicon"; Description: "繝?せ繧ッ繝医ャ繝励↓繧キ繝ァ繝シ繝医き繝?ヨ繧剃ス懈?"; GroupDescription: "繧キ繝ァ繝シ繝医き繝?ヨ"; 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}\繧ョ繧ウ繝翫ン"; Filename: "{app}\gikoNavi.exe"; WorkingDir: "{app}"; Tasks: startmenuicon
43 Name: "{commondesktop}\繧ョ繧ウ繝翫ン"; Filename: "{app}\gikoNavi.exe"; WorkingDir: "{app}"; Tasks: desktopicon
44
45 [Run]
46 Filename: "{app}\readme.txt"; Description: "README繧定。ィ遉コ縺吶k"; Flags: postinstall shellexec skipifsilent unchecked
47 Filename: "{app}\gikoNavi.exe"; Description: "繧「繝励Μ繧ア繝シ繧キ繝ァ繝ウ繧定オキ蜍輔☆繧?quot;; 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('莉・蜑阪?繝舌?繧ク繝ァ繝ウ縺ョ繧「繝ウ繧、繝ウ繧ケ繝医?繝ォ諠??ア繧貞炎髯、縺励※繧医m縺励>縺ァ縺励g縺?°??#39;
71 + #10#13 + '(繝舌ち56莉・蜑阪°繧峨?繧「繝??繝??繝医?蝣エ蜷医?後?縺??肴耳螂ィ)',
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('繧「繝ウ繧、繝ウ繧ケ繝医?繝ォ諠??ア縺ョ蜑企勁縺ォ螟ア謨励@縺セ縺励◆縲?#39;, 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 + '繝輔か繝ォ繝?莉・荳九r螳悟?縺ォ豸亥悉縺励※繧医m縺励>縺ァ縺励g縺?°??#39;, 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 + '繝輔か繝ォ繝?莉・荳九r螳悟?縺ォ豸亥悉縺励※繧医m縺励>縺ァ縺励g縺?°??#39;, 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 + '繝輔か繝ォ繝?莉・荳九↓縲∝炎髯、縺励″繧後↑縺?ヵ繧。繧、繝ォ縺梧ョ九▲縺ヲ縺?k蝣エ蜷医′縺ゅj縺セ縺吶??#39; #10#13 '遒コ隱阪?縺?∴謇句虚縺ァ蜑企勁縺励※縺上□縺輔>縲?#39;,
119 mbInformation, MB_OK);
120 end;
121 end;
122 end;
123

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