• R/O
  • HTTP
  • SSH
  • HTTPS

Commit

Tags
No Tags

Frequently used words (click to add to your profile)

javac++androidlinuxc#objective-cqtwindows誰得cocoapythonphprubygameguibathyscaphec翻訳omegat計画中(planning stage)frameworktwittertestdomvb.netdirectxbtronarduinopreviewerゲームエンジン

ギコナビ


Commit MetaInfo

Revisiona7d7473581ea5d5d7186bb4a12e2d9ef4e809ad7 (tree)
Time2007-06-18 01:35:38
Authorh677 <h677>
Commiterh677

Log Message

InnoSetupでのインストーラ用スクリプトファイル

Change Summary

Incremental Difference

--- /dev/null
+++ b/readme/gikoSetup.iss
@@ -0,0 +1,112 @@
1+[Setup]
2+AppName=ƒMƒRƒiƒr
3+AppVerName=ƒMƒRƒiƒr
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=ƒMƒRƒiƒrƒZƒbƒgƒAƒbƒvƒvƒƒOƒ‰ƒ€
10+DefaultGroupName=ƒMƒRƒiƒr
11+; Ž©•ª‚̊‹«‚ɍ‡‚킹‚Ä‚­‚¾‚³‚¢
12+SourceDir=G:\Release
13+OutputDir=G:\InnoSetup\Output
14+SetupIconFile="G:\gikoNaviSFX_102\MainIcon.ico"
15+; ƒMƒRƒiƒr‚̃o[ƒWƒ‡ƒ“‚É‚ ‚킹‚Ä‚­‚¾‚³‚¢
16+VersionInfoVersion=1.56.0.713
17+OutputBaseFilename=gikoNavi_1.56.0.713_setup
18+
19+
20+[Tasks]
21+Name: "startmenuicon"; Description: "ƒXƒ^[ƒgƒƒjƒ…[‚É“o˜^‚·‚é"; GroupDescription: "ƒVƒ‡[ƒgƒJƒbƒg"; Flags:
22+Name: "desktopicon"; Description: "ƒfƒXƒNƒgƒbƒv‚ɃVƒ‡[ƒgƒJƒbƒg‚ðì¬"; GroupDescription: "ƒVƒ‡[ƒgƒJƒbƒg"; Flags:
23+
24+[Dirs]
25+Name: "{app}\Log" ; Permissions: everyone-full
26+Name: "{app}\Sound" ; Permissions: everyone-full
27+Name: "{app}\config\Board" ; Permissions: everyone-full
28+Name: "{app}\config\BoardPlugin" ; Permissions: everyone-full
29+Name: "{app}\config\NGwords" ; Permissions: everyone-full
30+
31+
32+[Files]
33+Source: * ; Destdir: {app} ;Excludes: "gikoNavi.exe" ; Permissions: everyone-full
34+Source: "gikoNavi.exe" ; Destdir: {app} ;Permissions: everyone-full; Flags: ignoreversion
35+Source: "Sound\*" ; Destdir: {app}\Sound ;Flags: createallsubdirs recursesubdirs ; Permissions: everyone-full
36+Source: "config\*" ; Destdir: {app}\config ;Excludes: "*.dll";Flags: createallsubdirs recursesubdirs ; Permissions: everyone-full
37+Source: "config\BoardPlugin\*.dll" ; Destdir: {app}\config\BoardPlugin ;Flags: ignoreversion; Permissions: everyone-full
38+
39+[Icons]
40+Name: "{group}\Readme"; Filename: "{app}\readme.txt"; Tasks: startmenuicon
41+Name: "{group}\ƒMƒRƒiƒr"; Filename: "{app}\gikoNavi.exe"; Tasks: startmenuicon
42+Name: "{commondesktop}\ƒMƒRƒiƒr"; Filename: "{app}\gikoNavi.exe"; Tasks: desktopicon
43+
44+[Run]
45+Filename: "{app}\readme.txt"; Description: "README‚ð•\Ž¦‚·‚é"; Flags: postinstall shellexec skipifsilent unchecked
46+Filename: "{app}\gikoNavi.exe"; Description: "ƒAƒvƒŠƒP[ƒVƒ‡ƒ“‚ð‹N“®‚·‚é"; Flags: postinstall shellexec skipifsilent
47+
48+[UninstallDelete]
49+Type: files; Name: "{app}\sent.ini"
50+Type: files; Name: "{app}\url.ini"
51+Type: files; Name: "{app}\Samba.ini"
52+Type: files; Name: "{app}\gikoNavi.ini"
53+
54+[Languages]
55+Name: japanese; MessagesFile: compiler:Languages\Japanese.isl
56+
57+[Code]
58+procedure CurStepChanged(CurStep: TSetupStep);
59+var
60+ path :String;
61+ p : Integer;
62+begin
63+ case CurStep of
64+ ssInstall:
65+ begin
66+ if (RegKeyExists(HKEY_LOCAL_MACHINE,
67+ 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\gikoNavi')) then
68+ begin
69+ if MsgBox('ˆÈ‘O‚̃o[ƒWƒ‡ƒ“‚̃Aƒ“ƒCƒ“ƒXƒg[ƒ‹î•ñ‚ðíœ‚µ‚Ä‚æ‚낵‚¢‚Å‚µ‚傤‚©H',
70+ mbConfirmation, MB_YESNO) = IDYES then
71+ begin
72+ if not RegDeleteKeyIncludingSubkeys(HKEY_LOCAL_MACHINE,
73+ 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\gikoNavi') then
74+ begin
75+ MsgBox('ƒAƒ“ƒCƒ“ƒXƒg[ƒ‹î•ñ‚̍폜‚ÉŽ¸”s‚µ‚Ü‚µ‚½B', mbError, MB_OK);
76+ end;
77+ end;
78+ end;
79+ end;
80+ end;
81+
82+end;
83+procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
84+var
85+ path :String;
86+begin
87+ case CurUninstallStep of
88+ usUninstall:
89+ begin
90+ path := ExpandConstant('{app}') + '\Log';
91+ if MsgBox(path + 'ƒtƒHƒ‹ƒ_ˆÈ‰º‚ðŠ®‘S‚ɏÁ‹Ž‚µ‚Ä‚æ‚낵‚¢‚Å‚µ‚傤‚©H', mbConfirmation, MB_YESNO) = IDYES then
92+ begin
93+ DelTree(path, True, True, True);
94+ end;
95+
96+ path := ExpandConstant('{app}') + '\config';
97+ if MsgBox(path + 'ƒtƒHƒ‹ƒ_ˆÈ‰º‚ðŠ®‘S‚ɏÁ‹Ž‚µ‚Ä‚æ‚낵‚¢‚Å‚µ‚傤‚©H', mbConfirmation, MB_YESNO) = IDYES then
98+ begin
99+ DelTree(path, True, True, True);
100+ end;
101+
102+ end;
103+ usPostUninstall:
104+ begin
105+ path := ExpandConstant('{app}');
106+
107+ MsgBox(path + 'ƒtƒHƒ‹ƒ_ˆÈ‰º‚ɁAíœ‚µ‚«‚ê‚È‚¢ƒtƒ@ƒCƒ‹‚ªŽc‚Á‚Ä‚¢‚éê‡‚ª‚ ‚è‚Ü‚·B' #10#13 'Šm”F‚Ì‚¤‚¦Žè“®‚ō폜‚µ‚Ä‚­‚¾‚³‚¢B',
108+ mbInformation, MB_OK);
109+ end;
110+ end;
111+end;
112+