annotate gaim-installer.nsi @ 11366:b96bc81243be

[gaim-migrate @ 13590] Peter Lawler says this works better... committer: Tailor Script <tailor@pidgin.im>
author Gary Kramlich <grim@reaperworld.com>
date Tue, 30 Aug 2005 03:26:49 +0000
parents fd4aba9dab9d
children 8b955ffe9584
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
3630
9682c0e022c6 [gaim-migrate @ 3753]
Rob Flynn <gaim@robflynn.com>
parents:
diff changeset
1 ; Installer script for win32 Gaim
3917
29ccbc3eb9c1 [gaim-migrate @ 4076]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 3910
diff changeset
2 ; Herman Bloggs <hermanator12002@yahoo.com>
3630
9682c0e022c6 [gaim-migrate @ 3753]
Rob Flynn <gaim@robflynn.com>
parents:
diff changeset
3
10920
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
4 ; NOTE: this .NSI script is intended for NSIS 2.0 (final release).
8388
c08d9b0dbd29 [gaim-migrate @ 9116]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 8183
diff changeset
5 ;
4897
65a0a360e8c4 [gaim-migrate @ 5229]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 4857
diff changeset
6
65a0a360e8c4 [gaim-migrate @ 5229]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 4857
diff changeset
7 ;--------------------------------
7558
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
8 ;Global Variables
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
9 Var name
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
10 Var GTK_FOLDER
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
11 Var GTK_THEME_SEL
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
12 Var LANG_IS_SET
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
13 Var ISSILENT
9902
b0f2c9c0d23b [gaim-migrate @ 10794]
Mark Doliner <mark@kingant.net>
parents: 9890
diff changeset
14 Var STARTUP_RUN_KEY
7558
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
15
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
16 ;--------------------------------
4897
65a0a360e8c4 [gaim-migrate @ 5229]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 4857
diff changeset
17 ;Configuration
3630
9682c0e022c6 [gaim-migrate @ 3753]
Rob Flynn <gaim@robflynn.com>
parents:
diff changeset
18
7558
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
19 ;The name var is set in .onInit
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
20 Name $name
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
21
5383
e44333671363 [gaim-migrate @ 5759]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5332
diff changeset
22 !ifdef WITH_GTK
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
23 OutFile "gaim-${GAIM_VERSION}.exe"
5383
e44333671363 [gaim-migrate @ 5759]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5332
diff changeset
24 !else
5931
8b5dd7117f56 [gaim-migrate @ 6371]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5396
diff changeset
25 !ifdef DEBUG
8b5dd7117f56 [gaim-migrate @ 6371]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5396
diff changeset
26 OutFile "gaim-${GAIM_VERSION}-debug.exe"
8b5dd7117f56 [gaim-migrate @ 6371]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5396
diff changeset
27 !else
5383
e44333671363 [gaim-migrate @ 5759]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5332
diff changeset
28 OutFile "gaim-${GAIM_VERSION}-no-gtk.exe"
e44333671363 [gaim-migrate @ 5759]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5332
diff changeset
29 !endif
5931
8b5dd7117f56 [gaim-migrate @ 6371]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5396
diff changeset
30 !endif
7558
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
31
8180
63b771e3f2c4 [gaim-migrate @ 8897]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 8179
diff changeset
32 SetCompressor lzma
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
33 ShowInstDetails show
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
34 ShowUninstDetails show
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
35 SetDateSave on
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
36
7558
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
37 ; $name and $INSTDIR are set in .onInit function..
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
38
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
39 !include "MUI.nsh"
7558
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
40 !include "Sections.nsh"
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
41
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
42 ;--------------------------------
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
43 ;Defines
4897
65a0a360e8c4 [gaim-migrate @ 5229]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 4857
diff changeset
44
7558
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
45 !define GAIM_NSIS_INCLUDE_PATH ".\src\win32\nsis"
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
46 !define GAIM_INSTALLER_DEPS "..\win32-dev\gaim-inst-deps"
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
47
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
48 !define GAIM_REG_KEY "SOFTWARE\gaim"
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
49 !define GAIM_UNINSTALL_KEY "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Gaim"
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
50 !define HKLM_APP_PATHS_KEY "SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\gaim.exe"
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
51 !define GAIM_STARTUP_RUN_KEY "SOFTWARE\Microsoft\Windows\CurrentVersion\Run"
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
52 !define GAIM_UNINST_EXE "gaim-uninst.exe"
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
53 !define GAIM_REG_LANG "Installer Language"
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
54
10920
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
55 !define GTK_VERSION "2.6.2"
7558
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
56 !define GTK_REG_KEY "SOFTWARE\GTK\2.0"
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
57 !define PERL_REG_KEY "SOFTWARE\Perl"
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
58 !define PERL_DLL "perl58.dll"
11260
fd4aba9dab9d [gaim-migrate @ 13437]
Richard Laager <rlaager@wiktel.com>
parents: 11103
diff changeset
59 !define GTK_DEFAULT_INSTALL_PATH "$COMMONFILES\GTK\2.0"
7558
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
60 !define GTK_RUNTIME_INSTALLER "..\gtk_installer\gtk-runtime*.exe"
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
61 !define GTK_THEME_DIR "..\gtk_installer\gtk_themes"
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
62 !define GTK_DEFAULT_THEME_GTKRC_DIR "share\themes\Default\gtk-2.0"
9565
c60809a33460 [gaim-migrate @ 10404]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 9561
diff changeset
63 !define GTK_DEFAULT_THEME_ENGINE_DIR "lib\gtk-2.0\2.4.0\engines"
4897
65a0a360e8c4 [gaim-migrate @ 5229]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 4857
diff changeset
64
7558
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
65 ;--------------------------------
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
66 ;Modern UI Configuration
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
67
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
68 !define MUI_ICON ".\pixmaps\gaim-install.ico"
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
69 !define MUI_UNICON ".\pixmaps\gaim-install.ico"
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
70 !define MUI_WELCOMEFINISHPAGE_BITMAP ".\src\win32\nsis\gaim-intro.bmp"
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
71 !define MUI_HEADERIMAGE
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
72 !define MUI_HEADERIMAGE_BITMAP ".\src\win32\nsis\gaim-header.bmp"
4897
65a0a360e8c4 [gaim-migrate @ 5229]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 4857
diff changeset
73
7558
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
74 ; Alter License section
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
75 !define MUI_LICENSEPAGE_BUTTON $(GAIM_LICENSE_BUTTON)
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
76 !define MUI_LICENSEPAGE_TEXT_BOTTOM $(GAIM_LICENSE_BOTTOM_TEXT)
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
77
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
78 !define MUI_COMPONENTSPAGE_SMALLDESC
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
79 !define MUI_ABORTWARNING
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
80
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
81 ;Finish Page config
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
82 !define MUI_FINISHPAGE_RUN "$INSTDIR\gaim.exe"
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
83 !define MUI_FINISHPAGE_RUN_NOTCHECKED
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
84 !define MUI_FINISHPAGE_LINK $(GAIM_FINISH_VISIT_WEB_SITE)
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
85 !define MUI_FINISHPAGE_LINK_LOCATION "http://gaim.sourceforge.net/win32"
3630
9682c0e022c6 [gaim-migrate @ 3753]
Rob Flynn <gaim@robflynn.com>
parents:
diff changeset
86
4897
65a0a360e8c4 [gaim-migrate @ 5229]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 4857
diff changeset
87 ;--------------------------------
6255
386d65dd7f0d [gaim-migrate @ 6751]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 6233
diff changeset
88 ;Pages
386d65dd7f0d [gaim-migrate @ 6751]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 6233
diff changeset
89
7600
f48c6e4db102 [gaim-migrate @ 8222]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7575
diff changeset
90 !define MUI_PAGE_CUSTOMFUNCTION_PRE preWelcomePage
6255
386d65dd7f0d [gaim-migrate @ 6751]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 6233
diff changeset
91 !insertmacro MUI_PAGE_WELCOME
7558
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
92 !insertmacro MUI_PAGE_LICENSE "./COPYING"
6255
386d65dd7f0d [gaim-migrate @ 6751]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 6233
diff changeset
93 !insertmacro MUI_PAGE_COMPONENTS
7558
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
94
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
95 !ifdef WITH_GTK
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
96 ; GTK+ install dir page
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
97 !define MUI_PAGE_CUSTOMFUNCTION_PRE preGtkDirPage
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
98 !define MUI_PAGE_CUSTOMFUNCTION_LEAVE postGtkDirPage
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
99 !define MUI_DIRECTORYPAGE_VARIABLE $GTK_FOLDER
6255
386d65dd7f0d [gaim-migrate @ 6751]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 6233
diff changeset
100 !insertmacro MUI_PAGE_DIRECTORY
7558
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
101 !endif
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
102
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
103 ; Gaim install dir page
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
104 !insertmacro MUI_PAGE_DIRECTORY
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
105
6255
386d65dd7f0d [gaim-migrate @ 6751]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 6233
diff changeset
106 !insertmacro MUI_PAGE_INSTFILES
386d65dd7f0d [gaim-migrate @ 6751]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 6233
diff changeset
107 !insertmacro MUI_PAGE_FINISH
386d65dd7f0d [gaim-migrate @ 6751]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 6233
diff changeset
108
7558
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
109 !insertmacro MUI_UNPAGE_WELCOME
6255
386d65dd7f0d [gaim-migrate @ 6751]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 6233
diff changeset
110 !insertmacro MUI_UNPAGE_CONFIRM
386d65dd7f0d [gaim-migrate @ 6751]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 6233
diff changeset
111 !insertmacro MUI_UNPAGE_INSTFILES
7558
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
112 !insertmacro MUI_UNPAGE_FINISH
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
113
4897
65a0a360e8c4 [gaim-migrate @ 5229]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 4857
diff changeset
114 ;--------------------------------
65a0a360e8c4 [gaim-migrate @ 5229]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 4857
diff changeset
115 ;Languages
65a0a360e8c4 [gaim-migrate @ 5229]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 4857
diff changeset
116
7558
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
117 ;; English goes first because its the default. The rest are
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
118 ;; in alphabetical order (at least the strings actually displayed
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
119 ;; will be).
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
120
4897
65a0a360e8c4 [gaim-migrate @ 5229]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 4857
diff changeset
121 !insertmacro MUI_LANGUAGE "English"
6913
44933354ecad [gaim-migrate @ 7460]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 6912
diff changeset
122
10095
b28f9be379b3 [gaim-migrate @ 11114]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 9960
diff changeset
123 !insertmacro MUI_LANGUAGE "Albanian"
6913
44933354ecad [gaim-migrate @ 7460]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 6912
diff changeset
124 !insertmacro MUI_LANGUAGE "Bulgarian"
9956
a448265e09d8 [gaim-migrate @ 10856]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 9902
diff changeset
125 !insertmacro MUI_LANGUAGE "Catalan"
7626
2fb83607becf [gaim-migrate @ 8250]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7600
diff changeset
126 !insertmacro MUI_LANGUAGE "Czech"
7924
cb400cd78961 [gaim-migrate @ 8593]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7626
diff changeset
127 !insertmacro MUI_LANGUAGE "Danish"
6913
44933354ecad [gaim-migrate @ 7460]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 6912
diff changeset
128 !insertmacro MUI_LANGUAGE "SimpChinese"
44933354ecad [gaim-migrate @ 7460]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 6912
diff changeset
129 !insertmacro MUI_LANGUAGE "TradChinese"
6255
386d65dd7f0d [gaim-migrate @ 6751]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 6233
diff changeset
130 !insertmacro MUI_LANGUAGE "German"
7575
df5f8c339c38 [gaim-migrate @ 8191]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7572
diff changeset
131 !insertmacro MUI_LANGUAGE "Spanish"
6255
386d65dd7f0d [gaim-migrate @ 6751]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 6233
diff changeset
132 !insertmacro MUI_LANGUAGE "French"
8388
c08d9b0dbd29 [gaim-migrate @ 9116]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 8183
diff changeset
133 !insertmacro MUI_LANGUAGE "Hebrew"
6913
44933354ecad [gaim-migrate @ 7460]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 6912
diff changeset
134 !insertmacro MUI_LANGUAGE "Italian"
8183
ab0fce369327 [gaim-migrate @ 8902]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 8180
diff changeset
135 !insertmacro MUI_LANGUAGE "Japanese"
6913
44933354ecad [gaim-migrate @ 7460]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 6912
diff changeset
136 !insertmacro MUI_LANGUAGE "Korean"
44933354ecad [gaim-migrate @ 7460]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 6912
diff changeset
137 !insertmacro MUI_LANGUAGE "Hungarian"
44933354ecad [gaim-migrate @ 7460]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 6912
diff changeset
138 !insertmacro MUI_LANGUAGE "Dutch"
8567
d92a7574473c [gaim-migrate @ 9314]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 8388
diff changeset
139 !insertmacro MUI_LANGUAGE "Norwegian"
8126
b6458d4ce101 [gaim-migrate @ 8830]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 8099
diff changeset
140 !insertmacro MUI_LANGUAGE "Polish"
6290
976d9ad5d77a [gaim-migrate @ 6789]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 6277
diff changeset
141 !insertmacro MUI_LANGUAGE "PortugueseBR"
7215
fa011d609c54 [gaim-migrate @ 7784]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7214
diff changeset
142 !insertmacro MUI_LANGUAGE "Portuguese"
6951
54deff9eec41 [gaim-migrate @ 7498]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 6948
diff changeset
143 !insertmacro MUI_LANGUAGE "Romanian"
8099
40163e984818 [gaim-migrate @ 8799]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7924
diff changeset
144 !insertmacro MUI_LANGUAGE "Russian"
6913
44933354ecad [gaim-migrate @ 7460]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 6912
diff changeset
145 !insertmacro MUI_LANGUAGE "Serbian"
9561
3ff773e92747 [gaim-migrate @ 10397]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 9139
diff changeset
146 !insertmacro MUI_LANGUAGE "Slovak"
9115
f55f93a975f2 [gaim-migrate @ 9892]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 8567
diff changeset
147 !insertmacro MUI_LANGUAGE "Slovenian"
8179
3fa28787e571 [gaim-migrate @ 8896]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 8178
diff changeset
148 !insertmacro MUI_LANGUAGE "Finnish"
6559
8dba07c335e9 [gaim-migrate @ 7081]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 6491
diff changeset
149 !insertmacro MUI_LANGUAGE "Swedish"
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
150
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
151 ;--------------------------------
6233
0c64ba470632 [gaim-migrate @ 6726]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 6159
diff changeset
152 ;Translations
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
153
7572
6300424eafbf [gaim-migrate @ 8188]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7558
diff changeset
154 !define GAIM_DEFAULT_LANGFILE "${GAIM_NSIS_INCLUDE_PATH}\translations\english.nsh"
6300424eafbf [gaim-migrate @ 8188]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7558
diff changeset
155
6300424eafbf [gaim-migrate @ 8188]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7558
diff changeset
156 !include "${GAIM_NSIS_INCLUDE_PATH}\langmacros.nsh"
6300424eafbf [gaim-migrate @ 8188]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7558
diff changeset
157
10095
b28f9be379b3 [gaim-migrate @ 11114]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 9960
diff changeset
158 !insertmacro GAIM_MACRO_INCLUDE_LANGFILE "ALBANIAN" "${GAIM_NSIS_INCLUDE_PATH}\translations\albanian.nsh"
7575
df5f8c339c38 [gaim-migrate @ 8191]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7572
diff changeset
159 !insertmacro GAIM_MACRO_INCLUDE_LANGFILE "BULGARIAN" "${GAIM_NSIS_INCLUDE_PATH}\translations\bulgarian.nsh"
9956
a448265e09d8 [gaim-migrate @ 10856]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 9902
diff changeset
160 !insertmacro GAIM_MACRO_INCLUDE_LANGFILE "CATALAN" "${GAIM_NSIS_INCLUDE_PATH}\translations\catalan.nsh"
7626
2fb83607becf [gaim-migrate @ 8250]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7600
diff changeset
161 !insertmacro GAIM_MACRO_INCLUDE_LANGFILE "CZECH" "${GAIM_NSIS_INCLUDE_PATH}\translations\czech.nsh"
7924
cb400cd78961 [gaim-migrate @ 8593]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7626
diff changeset
162 !insertmacro GAIM_MACRO_INCLUDE_LANGFILE "DANISH" "${GAIM_NSIS_INCLUDE_PATH}\translations\danish.nsh"
7575
df5f8c339c38 [gaim-migrate @ 8191]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7572
diff changeset
163 !insertmacro GAIM_MACRO_INCLUDE_LANGFILE "DUTCH" "${GAIM_NSIS_INCLUDE_PATH}\translations\dutch.nsh"
7572
6300424eafbf [gaim-migrate @ 8188]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7558
diff changeset
164 !insertmacro GAIM_MACRO_INCLUDE_LANGFILE "ENGLISH" "${GAIM_NSIS_INCLUDE_PATH}\translations\english.nsh"
8178
33802f8a2d90 [gaim-migrate @ 8895]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 8126
diff changeset
165 !insertmacro GAIM_MACRO_INCLUDE_LANGFILE "FINNISH" "${GAIM_NSIS_INCLUDE_PATH}\translations\finnish.nsh"
7572
6300424eafbf [gaim-migrate @ 8188]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7558
diff changeset
166 !insertmacro GAIM_MACRO_INCLUDE_LANGFILE "FRENCH" "${GAIM_NSIS_INCLUDE_PATH}\translations\french.nsh"
7575
df5f8c339c38 [gaim-migrate @ 8191]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7572
diff changeset
167 !insertmacro GAIM_MACRO_INCLUDE_LANGFILE "GERMAN" "${GAIM_NSIS_INCLUDE_PATH}\translations\german.nsh"
8388
c08d9b0dbd29 [gaim-migrate @ 9116]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 8183
diff changeset
168 !insertmacro GAIM_MACRO_INCLUDE_LANGFILE "HEBREW" "${GAIM_NSIS_INCLUDE_PATH}\translations\hebrew.nsh"
7572
6300424eafbf [gaim-migrate @ 8188]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7558
diff changeset
169 !insertmacro GAIM_MACRO_INCLUDE_LANGFILE "HUNGARIAN" "${GAIM_NSIS_INCLUDE_PATH}\translations\hungarian.nsh"
6300424eafbf [gaim-migrate @ 8188]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7558
diff changeset
170 !insertmacro GAIM_MACRO_INCLUDE_LANGFILE "ITALIAN" "${GAIM_NSIS_INCLUDE_PATH}\translations\italian.nsh"
8183
ab0fce369327 [gaim-migrate @ 8902]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 8180
diff changeset
171 !insertmacro GAIM_MACRO_INCLUDE_LANGFILE "JAPANESE" "${GAIM_NSIS_INCLUDE_PATH}\translations\japanese.nsh"
7575
df5f8c339c38 [gaim-migrate @ 8191]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7572
diff changeset
172 !insertmacro GAIM_MACRO_INCLUDE_LANGFILE "KOREAN" "${GAIM_NSIS_INCLUDE_PATH}\translations\korean.nsh"
8567
d92a7574473c [gaim-migrate @ 9314]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 8388
diff changeset
173 !insertmacro GAIM_MACRO_INCLUDE_LANGFILE "NORWEGIAN" "${GAIM_NSIS_INCLUDE_PATH}\translations\norwegian.nsh"
8126
b6458d4ce101 [gaim-migrate @ 8830]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 8099
diff changeset
174 !insertmacro GAIM_MACRO_INCLUDE_LANGFILE "POLISH" "${GAIM_NSIS_INCLUDE_PATH}\translations\polish.nsh"
7575
df5f8c339c38 [gaim-migrate @ 8191]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7572
diff changeset
175 !insertmacro GAIM_MACRO_INCLUDE_LANGFILE "PORTUGUESE" "${GAIM_NSIS_INCLUDE_PATH}\translations\portuguese.nsh"
df5f8c339c38 [gaim-migrate @ 8191]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7572
diff changeset
176 !insertmacro GAIM_MACRO_INCLUDE_LANGFILE "PORTUGUESEBR" "${GAIM_NSIS_INCLUDE_PATH}\translations\portuguese-br.nsh"
df5f8c339c38 [gaim-migrate @ 8191]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7572
diff changeset
177 !insertmacro GAIM_MACRO_INCLUDE_LANGFILE "ROMANIAN" "${GAIM_NSIS_INCLUDE_PATH}\translations\romanian.nsh"
8099
40163e984818 [gaim-migrate @ 8799]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7924
diff changeset
178 !insertmacro GAIM_MACRO_INCLUDE_LANGFILE "RUSSIAN" "${GAIM_NSIS_INCLUDE_PATH}\translations\russian.nsh"
7575
df5f8c339c38 [gaim-migrate @ 8191]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7572
diff changeset
179 !insertmacro GAIM_MACRO_INCLUDE_LANGFILE "SERBIAN" "${GAIM_NSIS_INCLUDE_PATH}\translations\serbian-latin.nsh"
df5f8c339c38 [gaim-migrate @ 8191]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7572
diff changeset
180 !insertmacro GAIM_MACRO_INCLUDE_LANGFILE "SIMPCHINESE" "${GAIM_NSIS_INCLUDE_PATH}\translations\simp-chinese.nsh"
9561
3ff773e92747 [gaim-migrate @ 10397]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 9139
diff changeset
181 !insertmacro GAIM_MACRO_INCLUDE_LANGFILE "SLOVAK" "${GAIM_NSIS_INCLUDE_PATH}\translations\slovak.nsh"
9115
f55f93a975f2 [gaim-migrate @ 9892]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 8567
diff changeset
182 !insertmacro GAIM_MACRO_INCLUDE_LANGFILE "SLOVENIAN" "${GAIM_NSIS_INCLUDE_PATH}\translations\slovenian.nsh"
7575
df5f8c339c38 [gaim-migrate @ 8191]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7572
diff changeset
183 !insertmacro GAIM_MACRO_INCLUDE_LANGFILE "SPANISH" "${GAIM_NSIS_INCLUDE_PATH}\translations\spanish.nsh"
7572
6300424eafbf [gaim-migrate @ 8188]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7558
diff changeset
184 !insertmacro GAIM_MACRO_INCLUDE_LANGFILE "SWEDISH" "${GAIM_NSIS_INCLUDE_PATH}\translations\swedish.nsh"
6300424eafbf [gaim-migrate @ 8188]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7558
diff changeset
185 !insertmacro GAIM_MACRO_INCLUDE_LANGFILE "TRADCHINESE" "${GAIM_NSIS_INCLUDE_PATH}\translations\trad-chinese.nsh"
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
186
4897
65a0a360e8c4 [gaim-migrate @ 5229]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 4857
diff changeset
187 ;--------------------------------
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
188 ;Reserve Files
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
189 ; Only need this if using bzip2 compression
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
190
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
191 !insertmacro MUI_RESERVEFILE_INSTALLOPTIONS
6255
386d65dd7f0d [gaim-migrate @ 6751]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 6233
diff changeset
192 !insertmacro MUI_RESERVEFILE_LANGDLL
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
193 ReserveFile "${NSISDIR}\Plugins\UserInfo.dll"
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
194
5383
e44333671363 [gaim-migrate @ 5759]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5332
diff changeset
195
7558
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
196 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
197 ;; Start Install Sections ;;
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
198 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;
3630
9682c0e022c6 [gaim-migrate @ 3753]
Rob Flynn <gaim@robflynn.com>
parents:
diff changeset
199
5383
e44333671363 [gaim-migrate @ 5759]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5332
diff changeset
200 ;--------------------------------
e44333671363 [gaim-migrate @ 5759]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5332
diff changeset
201 ;Uninstall any old version of Gaim
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
202
5383
e44333671363 [gaim-migrate @ 5759]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5332
diff changeset
203 Section -SecUninstallOldGaim
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
204 ; Check install rights..
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
205 Call CheckUserInstallRights
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
206 Pop $R0
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
207
9902
b0f2c9c0d23b [gaim-migrate @ 10794]
Mark Doliner <mark@kingant.net>
parents: 9890
diff changeset
208 ;If gaim is currently set to run on startup,
b0f2c9c0d23b [gaim-migrate @ 10794]
Mark Doliner <mark@kingant.net>
parents: 9890
diff changeset
209 ; save the section of the Registry where the setting is before uninstalling,
b0f2c9c0d23b [gaim-migrate @ 10794]
Mark Doliner <mark@kingant.net>
parents: 9890
diff changeset
210 ; so we can put it back after installing the new version
b0f2c9c0d23b [gaim-migrate @ 10794]
Mark Doliner <mark@kingant.net>
parents: 9890
diff changeset
211 ClearErrors
b0f2c9c0d23b [gaim-migrate @ 10794]
Mark Doliner <mark@kingant.net>
parents: 9890
diff changeset
212 ReadRegStr $STARTUP_RUN_KEY HKCU "${GAIM_STARTUP_RUN_KEY}" "Gaim"
b0f2c9c0d23b [gaim-migrate @ 10794]
Mark Doliner <mark@kingant.net>
parents: 9890
diff changeset
213 IfErrors +3
b0f2c9c0d23b [gaim-migrate @ 10794]
Mark Doliner <mark@kingant.net>
parents: 9890
diff changeset
214 StrCpy $STARTUP_RUN_KEY "HKCU"
b0f2c9c0d23b [gaim-migrate @ 10794]
Mark Doliner <mark@kingant.net>
parents: 9890
diff changeset
215 Goto +4
b0f2c9c0d23b [gaim-migrate @ 10794]
Mark Doliner <mark@kingant.net>
parents: 9890
diff changeset
216 ReadRegStr $STARTUP_RUN_KEY HKLM "${GAIM_STARTUP_RUN_KEY}" "Gaim"
b0f2c9c0d23b [gaim-migrate @ 10794]
Mark Doliner <mark@kingant.net>
parents: 9890
diff changeset
217 IfErrors +2
b0f2c9c0d23b [gaim-migrate @ 10794]
Mark Doliner <mark@kingant.net>
parents: 9890
diff changeset
218 StrCpy $STARTUP_RUN_KEY "HKLM"
b0f2c9c0d23b [gaim-migrate @ 10794]
Mark Doliner <mark@kingant.net>
parents: 9890
diff changeset
219
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
220 StrCmp $R0 "HKLM" gaim_hklm
5383
e44333671363 [gaim-migrate @ 5759]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5332
diff changeset
221 StrCmp $R0 "HKCU" gaim_hkcu done
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
222
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
223 gaim_hkcu:
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
224 ReadRegStr $R1 HKCU ${GAIM_REG_KEY} ""
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
225 ReadRegStr $R2 HKCU ${GAIM_REG_KEY} "Version"
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
226 ReadRegStr $R3 HKCU "${GAIM_UNINSTALL_KEY}" "UninstallString"
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
227 Goto try_uninstall
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
228
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
229 gaim_hklm:
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
230 ReadRegStr $R1 HKLM ${GAIM_REG_KEY} ""
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
231 ReadRegStr $R2 HKLM ${GAIM_REG_KEY} "Version"
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
232 ReadRegStr $R3 HKLM "${GAIM_UNINSTALL_KEY}" "UninstallString"
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
233
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
234 ; If previous version exists .. remove
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
235 try_uninstall:
5383
e44333671363 [gaim-migrate @ 5759]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5332
diff changeset
236 StrCmp $R1 "" done
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
237 ; Version key started with 0.60a3. Prior versions can't be
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
238 ; automaticlly uninstalled.
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
239 StrCmp $R2 "" uninstall_problem
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
240 ; Check if we have uninstall string..
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
241 IfFileExists $R3 0 uninstall_problem
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
242 ; Have uninstall string.. go ahead and uninstall.
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
243 SetOverwrite on
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
244 ; Need to copy uninstaller outside of the install dir
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
245 ClearErrors
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
246 CopyFiles /SILENT $R3 "$TEMP\${GAIM_UNINST_EXE}"
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
247 SetOverwrite off
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
248 IfErrors uninstall_problem
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
249 ; Ready to uninstall..
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
250 ClearErrors
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
251 ExecWait '"$TEMP\${GAIM_UNINST_EXE}" /S _?=$R1'
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
252 IfErrors exec_error
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
253 Delete "$TEMP\${GAIM_UNINST_EXE}"
5383
e44333671363 [gaim-migrate @ 5759]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5332
diff changeset
254 Goto done
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
255
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
256 exec_error:
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
257 Delete "$TEMP\${GAIM_UNINST_EXE}"
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
258 Goto uninstall_problem
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
259
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
260 uninstall_problem:
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
261 ; In this case just wipe out previous Gaim install dir..
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
262 ; We get here because versions 0.60a1 and 0.60a2 don't have versions set in the registry
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
263 ; and versions 0.60 and lower did not correctly set the uninstall reg string
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
264 ; (the string was set in quotes)
7558
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
265 IfSilent do_wipeout
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
266 MessageBox MB_YESNO $(GAIM_PROMPT_WIPEOUT) IDYES do_wipeout IDNO cancel_install
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
267 cancel_install:
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
268 Quit
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
269
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
270 do_wipeout:
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
271 StrCmp $R0 "HKLM" gaim_del_lm_reg gaim_del_cu_reg
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
272 gaim_del_cu_reg:
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
273 DeleteRegKey HKCU ${GAIM_REG_KEY}
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
274 Goto uninstall_prob_cont
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
275 gaim_del_lm_reg:
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
276 DeleteRegKey HKLM ${GAIM_REG_KEY}
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
277
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
278 uninstall_prob_cont:
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
279 RMDir /r "$R1"
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
280
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
281 done:
5383
e44333671363 [gaim-migrate @ 5759]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5332
diff changeset
282 SectionEnd
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
283
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
284
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
285 ;--------------------------------
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
286 ;GTK+ Runtime Install Section
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
287
5383
e44333671363 [gaim-migrate @ 5759]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5332
diff changeset
288 !ifdef WITH_GTK
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
289 Section $(GTK_SECTION_TITLE) SecGtk
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
290 SectionIn 1 RO
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
291
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
292 Call CheckUserInstallRights
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
293 Pop $R1
4897
65a0a360e8c4 [gaim-migrate @ 5229]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 4857
diff changeset
294
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
295 SetOutPath $TEMP
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
296 SetOverwrite on
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
297 File /oname=gtk-runtime.exe ${GTK_RUNTIME_INSTALLER}
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
298 SetOverwrite off
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
299
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
300 ; This keeps track whether we install GTK+ or not..
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
301 StrCpy $R5 "0"
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
302
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
303 Call DoWeNeedGtk
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
304 Pop $R0
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
305 Pop $R6
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
306
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
307 StrCmp $R0 "0" have_gtk
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
308 StrCmp $R0 "1" upgrade_gtk
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
309 StrCmp $R0 "2" no_gtk no_gtk
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
310
4897
65a0a360e8c4 [gaim-migrate @ 5229]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 4857
diff changeset
311 no_gtk:
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
312 StrCmp $R1 "NONE" gtk_no_install_rights
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
313 ClearErrors
7558
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
314 ExecWait '"$TEMP\gtk-runtime.exe" /L=$LANGUAGE $ISSILENT /D=$GTK_FOLDER'
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
315 Goto gtk_install_cont
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
316
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
317 upgrade_gtk:
7558
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
318 StrCpy $GTK_FOLDER $R6
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
319 IfSilent skip_mb
5383
e44333671363 [gaim-migrate @ 5759]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5332
diff changeset
320 MessageBox MB_YESNO $(GTK_UPGRADE_PROMPT) IDNO done
7558
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
321 skip_mb:
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
322 ClearErrors
7558
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
323 ExecWait '"$TEMP\gtk-runtime.exe" /L=$LANGUAGE $ISSILENT'
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
324 Goto gtk_install_cont
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
325
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
326 gtk_install_cont:
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
327 IfErrors gtk_install_error
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
328 StrCpy $R5 "1" ; marker that says we installed...
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
329 Goto done
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
330
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
331 gtk_install_error:
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
332 Delete "$TEMP\gtk-runtime.exe"
7558
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
333 IfSilent skip_mb1
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
334 MessageBox MB_OK $(GTK_INSTALL_ERROR) IDOK
7558
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
335 skip_mb1:
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
336 Quit
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
337
4897
65a0a360e8c4 [gaim-migrate @ 5229]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 4857
diff changeset
338 have_gtk:
7558
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
339 StrCpy $GTK_FOLDER $R6
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
340 StrCmp $R1 "NONE" done ; If we have no rights.. can't re-install..
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
341 ; Even if we have a sufficient version of GTK+, we give user choice to re-install.
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
342 ClearErrors
7558
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
343 ExecWait '"$TEMP\gtk-runtime.exe" /L=$LANGUAGE $ISSILENT'
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
344 IfErrors gtk_install_error
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
345 Goto done
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
346
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
347 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
348 ; end got_install rights
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
349
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
350 gtk_no_install_rights:
7558
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
351 ; Install GTK+ to Gaim install dir
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
352 StrCpy $GTK_FOLDER $INSTDIR
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
353 ClearErrors
7558
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
354 ExecWait '"$TEMP\gtk-runtime.exe" /L=$LANGUAGE $ISSILENT /D=$GTK_FOLDER'
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
355 IfErrors gtk_install_error
5383
e44333671363 [gaim-migrate @ 5759]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5332
diff changeset
356 SetOverwrite on
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
357 ClearErrors
7558
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
358 CopyFiles /FILESONLY "$GTK_FOLDER\bin\*.dll" $GTK_FOLDER
5383
e44333671363 [gaim-migrate @ 5759]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5332
diff changeset
359 SetOverwrite off
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
360 IfErrors gtk_install_error
7558
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
361 Delete "$GTK_FOLDER\bin\*.dll"
5383
e44333671363 [gaim-migrate @ 5759]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5332
diff changeset
362 Goto done
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
363 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
364 ; end gtk_no_install_rights
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
365
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
366 done:
5383
e44333671363 [gaim-migrate @ 5759]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5332
diff changeset
367 Delete "$TEMP\gtk-runtime.exe"
e44333671363 [gaim-migrate @ 5759]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5332
diff changeset
368 SectionEnd ; end of GTK+ section
e44333671363 [gaim-migrate @ 5759]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5332
diff changeset
369 !endif
e44333671363 [gaim-migrate @ 5759]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5332
diff changeset
370
e44333671363 [gaim-migrate @ 5759]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5332
diff changeset
371 ;--------------------------------
e44333671363 [gaim-migrate @ 5759]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5332
diff changeset
372 ;Gaim Install Section
e44333671363 [gaim-migrate @ 5759]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5332
diff changeset
373
e44333671363 [gaim-migrate @ 5759]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5332
diff changeset
374 Section $(GAIM_SECTION_TITLE) SecGaim
e44333671363 [gaim-migrate @ 5759]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5332
diff changeset
375 SectionIn 1 RO
e44333671363 [gaim-migrate @ 5759]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5332
diff changeset
376
e44333671363 [gaim-migrate @ 5759]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5332
diff changeset
377 ; Check install rights..
e44333671363 [gaim-migrate @ 5759]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5332
diff changeset
378 Call CheckUserInstallRights
e44333671363 [gaim-migrate @ 5759]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5332
diff changeset
379 Pop $R0
e44333671363 [gaim-migrate @ 5759]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5332
diff changeset
380
e44333671363 [gaim-migrate @ 5759]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5332
diff changeset
381 ; Get GTK+ lib dir if we have it..
e44333671363 [gaim-migrate @ 5759]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5332
diff changeset
382
e44333671363 [gaim-migrate @ 5759]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5332
diff changeset
383 StrCmp $R0 "NONE" gaim_none
e44333671363 [gaim-migrate @ 5759]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5332
diff changeset
384 StrCmp $R0 "HKLM" gaim_hklm gaim_hkcu
e44333671363 [gaim-migrate @ 5759]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5332
diff changeset
385
e44333671363 [gaim-migrate @ 5759]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5332
diff changeset
386 gaim_hklm:
e44333671363 [gaim-migrate @ 5759]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5332
diff changeset
387 ReadRegStr $R1 HKLM ${GTK_REG_KEY} "Path"
6816
5aeba37b303c [gaim-migrate @ 7356]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 6650
diff changeset
388 WriteRegStr HKLM "${HKLM_APP_PATHS_KEY}" "" "$INSTDIR\gaim.exe"
6422
468bbb5fbc29 [gaim-migrate @ 6930]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 6300
diff changeset
389 WriteRegStr HKLM "${HKLM_APP_PATHS_KEY}" "Path" "$R1\bin"
5383
e44333671363 [gaim-migrate @ 5759]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5332
diff changeset
390 WriteRegStr HKLM ${GAIM_REG_KEY} "" "$INSTDIR"
e44333671363 [gaim-migrate @ 5759]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5332
diff changeset
391 WriteRegStr HKLM ${GAIM_REG_KEY} "Version" "${GAIM_VERSION}"
e44333671363 [gaim-migrate @ 5759]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5332
diff changeset
392 WriteRegStr HKLM "${GAIM_UNINSTALL_KEY}" "DisplayName" $(GAIM_UNINSTALL_DESC)
e44333671363 [gaim-migrate @ 5759]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5332
diff changeset
393 WriteRegStr HKLM "${GAIM_UNINSTALL_KEY}" "UninstallString" "$INSTDIR\${GAIM_UNINST_EXE}"
e44333671363 [gaim-migrate @ 5759]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5332
diff changeset
394 ; Sets scope of the desktop and Start Menu entries for all users.
e44333671363 [gaim-migrate @ 5759]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5332
diff changeset
395 SetShellVarContext "all"
e44333671363 [gaim-migrate @ 5759]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5332
diff changeset
396 Goto gaim_install_files
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
397
5383
e44333671363 [gaim-migrate @ 5759]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5332
diff changeset
398 gaim_hkcu:
e44333671363 [gaim-migrate @ 5759]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5332
diff changeset
399 ReadRegStr $R1 HKCU ${GTK_REG_KEY} "Path"
e44333671363 [gaim-migrate @ 5759]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5332
diff changeset
400 StrCmp $R1 "" 0 gaim_hkcu1
e44333671363 [gaim-migrate @ 5759]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5332
diff changeset
401 ReadRegStr $R1 HKLM ${GTK_REG_KEY} "Path"
e44333671363 [gaim-migrate @ 5759]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5332
diff changeset
402 gaim_hkcu1:
e44333671363 [gaim-migrate @ 5759]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5332
diff changeset
403 WriteRegStr HKCU ${GAIM_REG_KEY} "" "$INSTDIR"
e44333671363 [gaim-migrate @ 5759]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5332
diff changeset
404 WriteRegStr HKCU ${GAIM_REG_KEY} "Version" "${GAIM_VERSION}"
e44333671363 [gaim-migrate @ 5759]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5332
diff changeset
405 WriteRegStr HKCU "${GAIM_UNINSTALL_KEY}" "DisplayName" $(GAIM_UNINSTALL_DESC)
e44333671363 [gaim-migrate @ 5759]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5332
diff changeset
406 WriteRegStr HKCU "${GAIM_UNINSTALL_KEY}" "UninstallString" "$INSTDIR\${GAIM_UNINST_EXE}"
e44333671363 [gaim-migrate @ 5759]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5332
diff changeset
407 Goto gaim_install_files
e44333671363 [gaim-migrate @ 5759]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5332
diff changeset
408
e44333671363 [gaim-migrate @ 5759]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5332
diff changeset
409 gaim_none:
e44333671363 [gaim-migrate @ 5759]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5332
diff changeset
410 ReadRegStr $R1 HKLM ${GTK_REG_KEY} "Path"
e44333671363 [gaim-migrate @ 5759]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5332
diff changeset
411
e44333671363 [gaim-migrate @ 5759]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5332
diff changeset
412 gaim_install_files:
e44333671363 [gaim-migrate @ 5759]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5332
diff changeset
413 SetOutPath "$INSTDIR"
e44333671363 [gaim-migrate @ 5759]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5332
diff changeset
414 ; Gaim files
e44333671363 [gaim-migrate @ 5759]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5332
diff changeset
415 SetOverwrite on
e44333671363 [gaim-migrate @ 5759]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5332
diff changeset
416 File /r .\win32-install-dir\*.*
5931
8b5dd7117f56 [gaim-migrate @ 6371]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5396
diff changeset
417 !ifdef DEBUG
6854
9e1bd25afa88 [gaim-migrate @ 7399]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 6848
diff changeset
418 File "${GAIM_INSTALLER_DEPS}\exchndl.dll"
5931
8b5dd7117f56 [gaim-migrate @ 6371]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5396
diff changeset
419 !endif
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
420
6848
060aa79a733e [gaim-migrate @ 7393]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 6816
diff changeset
421 ; Install shfolder.dll if need be..
060aa79a733e [gaim-migrate @ 7393]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 6816
diff changeset
422 SearchPath $R4 "shfolder.dll"
060aa79a733e [gaim-migrate @ 7393]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 6816
diff changeset
423 StrCmp $R4 "" 0 got_shfolder
060aa79a733e [gaim-migrate @ 7393]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 6816
diff changeset
424 SetOutPath "$SYSDIR"
6854
9e1bd25afa88 [gaim-migrate @ 7399]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 6848
diff changeset
425 File "${GAIM_INSTALLER_DEPS}\shfolder.dll"
6848
060aa79a733e [gaim-migrate @ 7393]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 6816
diff changeset
426 SetOutPath "$INSTDIR"
060aa79a733e [gaim-migrate @ 7393]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 6816
diff changeset
427 got_shfolder:
060aa79a733e [gaim-migrate @ 7393]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 6816
diff changeset
428
6816
5aeba37b303c [gaim-migrate @ 7356]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 6650
diff changeset
429 ; Check if Perl is installed, If not remove perl plugin
5aeba37b303c [gaim-migrate @ 7356]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 6650
diff changeset
430 ReadRegStr $R2 HKLM ${PERL_REG_KEY} ""
5aeba37b303c [gaim-migrate @ 7356]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 6650
diff changeset
431 StrCmp $R2 "" 0 perl_exists
5aeba37b303c [gaim-migrate @ 7356]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 6650
diff changeset
432 ReadRegStr $R2 HKCU ${PERL_REG_KEY} ""
5aeba37b303c [gaim-migrate @ 7356]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 6650
diff changeset
433 StrCmp $R2 "" perl_remove perl_exists
5aeba37b303c [gaim-migrate @ 7356]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 6650
diff changeset
434
5aeba37b303c [gaim-migrate @ 7356]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 6650
diff changeset
435 perl_remove:
5aeba37b303c [gaim-migrate @ 7356]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 6650
diff changeset
436 Delete "$INSTDIR\plugins\perl.dll"
5aeba37b303c [gaim-migrate @ 7356]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 6650
diff changeset
437 RMDir /r "$INSTDIR\perlmod"
5aeba37b303c [gaim-migrate @ 7356]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 6650
diff changeset
438 Goto perl_done
5aeba37b303c [gaim-migrate @ 7356]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 6650
diff changeset
439
5aeba37b303c [gaim-migrate @ 7356]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 6650
diff changeset
440 perl_exists:
5aeba37b303c [gaim-migrate @ 7356]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 6650
diff changeset
441 IfFileExists "$R2\bin\${PERL_DLL}" 0 perl_remove
5aeba37b303c [gaim-migrate @ 7356]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 6650
diff changeset
442 StrCmp $R0 "HKLM" 0 perl_done
5aeba37b303c [gaim-migrate @ 7356]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 6650
diff changeset
443 ReadRegStr $R3 HKLM "${HKLM_APP_PATHS_KEY}" "Path"
5aeba37b303c [gaim-migrate @ 7356]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 6650
diff changeset
444 WriteRegStr HKLM "${HKLM_APP_PATHS_KEY}" "Path" "$R3;$R2\bin"
5aeba37b303c [gaim-migrate @ 7356]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 6650
diff changeset
445
5aeba37b303c [gaim-migrate @ 7356]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 6650
diff changeset
446 perl_done:
5aeba37b303c [gaim-migrate @ 7356]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 6650
diff changeset
447
10920
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
448 ; If this is under NT4, delete the SILC support stuff
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
449 ; there is a bug that will prevent any account from connecting
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
450 ; See https://lists.silcnet.org/pipermail/silc-devel/2005-January/001588.html
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
451 Call GetWindowsVersion
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
452 Pop $R2
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
453 StrCmp $R2 "NT 4.0" 0 nt4_done
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
454 Delete "$INSTDIR\plugins\libsilc.dll"
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
455 Delete "$INSTDIR\silcclient.dll"
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
456 Delete "$INSTDIR\silc.dll"
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
457
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
458 nt4_done:
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
459
5383
e44333671363 [gaim-migrate @ 5759]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5332
diff changeset
460 SetOutPath "$INSTDIR"
e44333671363 [gaim-migrate @ 5759]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5332
diff changeset
461
e44333671363 [gaim-migrate @ 5759]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5332
diff changeset
462 ; If we don't have install rights.. we're done
e44333671363 [gaim-migrate @ 5759]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5332
diff changeset
463 StrCmp $R0 "NONE" done
e44333671363 [gaim-migrate @ 5759]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5332
diff changeset
464 SetOverwrite off
e44333671363 [gaim-migrate @ 5759]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5332
diff changeset
465
7558
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
466 ; Write out installer language
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
467 WriteRegStr HKCU "${GAIM_REG_KEY}" "${GAIM_REG_LANG}" "$LANGUAGE"
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
468
5383
e44333671363 [gaim-migrate @ 5759]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5332
diff changeset
469 ; write out uninstaller
e44333671363 [gaim-migrate @ 5759]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5332
diff changeset
470 SetOverwrite on
e44333671363 [gaim-migrate @ 5759]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5332
diff changeset
471 WriteUninstaller "$INSTDIR\${GAIM_UNINST_EXE}"
e44333671363 [gaim-migrate @ 5759]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5332
diff changeset
472 SetOverwrite off
e44333671363 [gaim-migrate @ 5759]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5332
diff changeset
473
9902
b0f2c9c0d23b [gaim-migrate @ 10794]
Mark Doliner <mark@kingant.net>
parents: 9890
diff changeset
474 ; If we previously had gaim setup to run on startup, make it do so again
b0f2c9c0d23b [gaim-migrate @ 10794]
Mark Doliner <mark@kingant.net>
parents: 9890
diff changeset
475 StrCmp $STARTUP_RUN_KEY "HKCU" +1 +2
b0f2c9c0d23b [gaim-migrate @ 10794]
Mark Doliner <mark@kingant.net>
parents: 9890
diff changeset
476 WriteRegStr HKCU "${GAIM_STARTUP_RUN_KEY}" "Gaim" "$INSTDIR\gaim.exe"
b0f2c9c0d23b [gaim-migrate @ 10794]
Mark Doliner <mark@kingant.net>
parents: 9890
diff changeset
477 StrCmp $STARTUP_RUN_KEY "HKLM" +1 +2
b0f2c9c0d23b [gaim-migrate @ 10794]
Mark Doliner <mark@kingant.net>
parents: 9890
diff changeset
478 WriteRegStr HKLM "${GAIM_STARTUP_RUN_KEY}" "Gaim" "$INSTDIR\gaim.exe"
b0f2c9c0d23b [gaim-migrate @ 10794]
Mark Doliner <mark@kingant.net>
parents: 9890
diff changeset
479
5383
e44333671363 [gaim-migrate @ 5759]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5332
diff changeset
480 done:
e44333671363 [gaim-migrate @ 5759]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5332
diff changeset
481 SectionEnd ; end of default Gaim section
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
482
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
483 ;--------------------------------
10920
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
484 ;Shortcuts
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
485
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
486 SubSection /e $(GAIM_SHORTCUTS_SECTION_TITLE) SecShortcuts
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
487 Section /o $(GAIM_DESKTOP_SHORTCUT_SECTION_TITLE) SecDesktopShortcut
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
488 SetOverwrite on
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
489 CreateShortCut "$DESKTOP\Gaim.lnk" "$INSTDIR\gaim.exe"
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
490 SetOverwrite off
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
491 SectionEnd
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
492 Section $(GAIM_STARTMENU_SHORTCUT_SECTION_TITLE) SecStartMenuShortcut
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
493 SetOverwrite on
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
494 CreateDirectory "$SMPROGRAMS\Gaim"
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
495 CreateShortCut "$SMPROGRAMS\Gaim\Gaim.lnk" "$INSTDIR\gaim.exe"
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
496 SetOverwrite off
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
497 SectionEnd
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
498 SubSectionEnd
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
499
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
500 ;--------------------------------
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
501 ;GTK+ Themes
3860
d0897828bd0d [gaim-migrate @ 4012]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 3853
diff changeset
502
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
503 SubSection /e $(GTK_THEMES_SECTION_TITLE) SecGtkThemes
7558
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
504 Section /o $(GTK_NOTHEME_SECTION_TITLE) SecGtkNone
6948
8168bc284cfb [gaim-migrate @ 7495]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 6913
diff changeset
505 Call CanWeInstallATheme
7558
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
506 Pop $R0
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
507 StrCmp $R0 "" done
6948
8168bc284cfb [gaim-migrate @ 7495]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 6913
diff changeset
508 SetOverwrite on
7558
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
509 Rename $R0\${GTK_DEFAULT_THEME_GTKRC_DIR}\gtkrc $R0\${GTK_DEFAULT_THEME_GTKRC_DIR}\gtkrc.old
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
510 CopyFiles $R0\${GTK_DEFAULT_THEME_GTKRC_DIR}\gtkrc.plain $R0\${GTK_DEFAULT_THEME_GTKRC_DIR}\gtkrc
6948
8168bc284cfb [gaim-migrate @ 7495]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 6913
diff changeset
511 SetOverwrite off
8168bc284cfb [gaim-migrate @ 7495]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 6913
diff changeset
512 done:
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
513 SectionEnd
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
514
7352
af0e0b4d0c32 [gaim-migrate @ 7943]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7215
diff changeset
515 Section $(GTK_WIMP_SECTION_TITLE) SecGtkWimp
af0e0b4d0c32 [gaim-migrate @ 7943]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7215
diff changeset
516 Call CanWeInstallATheme
7558
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
517 Pop $R0
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
518 StrCmp $R0 "" done
7352
af0e0b4d0c32 [gaim-migrate @ 7943]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7215
diff changeset
519 SetOverwrite on
7558
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
520 Rename $R0\${GTK_DEFAULT_THEME_GTKRC_DIR}\gtkrc $R0\${GTK_DEFAULT_THEME_GTKRC_DIR}\gtkrc.old
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
521 SetOutPath $R0\${GTK_DEFAULT_THEME_ENGINE_DIR}
7352
af0e0b4d0c32 [gaim-migrate @ 7943]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7215
diff changeset
522 File ${GTK_THEME_DIR}\engines\libwimp.dll
7558
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
523 SetOutPath $R0\${GTK_DEFAULT_THEME_GTKRC_DIR}
7352
af0e0b4d0c32 [gaim-migrate @ 7943]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7215
diff changeset
524 File ${GTK_THEME_DIR}\themes\gtkrc.gtkwimp
af0e0b4d0c32 [gaim-migrate @ 7943]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7215
diff changeset
525 File /oname=gtkrc ${GTK_THEME_DIR}\themes\gtkrc.gtkwimp
af0e0b4d0c32 [gaim-migrate @ 7943]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7215
diff changeset
526 SetOverwrite off
af0e0b4d0c32 [gaim-migrate @ 7943]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7215
diff changeset
527 done:
af0e0b4d0c32 [gaim-migrate @ 7943]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7215
diff changeset
528 SectionEnd
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
529
7558
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
530 Section /o $(GTK_BLUECURVE_SECTION_TITLE) SecGtkBluecurve
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
531 Call CanWeInstallATheme
7558
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
532 Pop $R0
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
533 StrCmp $R0 "" done
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
534 SetOverwrite on
7558
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
535 Rename $R0\${GTK_DEFAULT_THEME_GTKRC_DIR}\gtkrc $R0\${GTK_DEFAULT_THEME_GTKRC_DIR}\gtkrc.old
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
536 SetOutPath $R0\${GTK_DEFAULT_THEME_ENGINE_DIR}
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
537 File ${GTK_THEME_DIR}\engines\libbluecurve.dll
7558
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
538 SetOutPath $R0\${GTK_DEFAULT_THEME_GTKRC_DIR}
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
539 File ${GTK_THEME_DIR}\themes\gtkrc.bluecurve
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
540 File /oname=gtkrc ${GTK_THEME_DIR}\themes\gtkrc.bluecurve
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
541 SetOverwrite off
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
542 done:
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
543 SectionEnd
3860
d0897828bd0d [gaim-migrate @ 4012]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 3853
diff changeset
544
7558
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
545 Section /o $(GTK_LIGHTHOUSEBLUE_SECTION_TITLE) SecGtkLighthouseblue
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
546 Call CanWeInstallATheme
7558
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
547 Pop $R0
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
548 StrCmp $R0 "" done
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
549 SetOverwrite on
7558
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
550 Rename $R0\${GTK_DEFAULT_THEME_GTKRC_DIR}\gtkrc $R0\${GTK_DEFAULT_THEME_GTKRC_DIR}\gtkrc.old
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
551 SetOutPath $R0\${GTK_DEFAULT_THEME_ENGINE_DIR}
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
552 File ${GTK_THEME_DIR}\engines\liblighthouseblue.dll
7558
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
553 SetOutPath $R0\${GTK_DEFAULT_THEME_GTKRC_DIR}
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
554 File ${GTK_THEME_DIR}\themes\gtkrc.lighthouseblue
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
555 File /oname=gtkrc ${GTK_THEME_DIR}\themes\gtkrc.lighthouseblue
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
556 SetOverwrite off
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
557 done:
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
558 SectionEnd
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
559 SubSectionEnd
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
560
4897
65a0a360e8c4 [gaim-migrate @ 5229]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 4857
diff changeset
561 ;--------------------------------
65a0a360e8c4 [gaim-migrate @ 5229]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 4857
diff changeset
562 ;Uninstaller Section
3630
9682c0e022c6 [gaim-migrate @ 3753]
Rob Flynn <gaim@robflynn.com>
parents:
diff changeset
563
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
564
3630
9682c0e022c6 [gaim-migrate @ 3753]
Rob Flynn <gaim@robflynn.com>
parents:
diff changeset
565 Section Uninstall
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
566 Call un.CheckUserInstallRights
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
567 Pop $R0
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
568 StrCmp $R0 "NONE" no_rights
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
569 StrCmp $R0 "HKCU" try_hkcu try_hklm
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
570
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
571 try_hkcu:
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
572 ReadRegStr $R0 HKCU ${GAIM_REG_KEY} ""
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
573 StrCmp $R0 $INSTDIR 0 cant_uninstall
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
574 ; HKCU install path matches our INSTDIR.. so uninstall
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
575 DeleteRegKey HKCU ${GAIM_REG_KEY}
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
576 DeleteRegKey HKCU "${GAIM_UNINSTALL_KEY}"
5383
e44333671363 [gaim-migrate @ 5759]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5332
diff changeset
577 Goto cont_uninstall
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
578
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
579 try_hklm:
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
580 ReadRegStr $R0 HKLM ${GAIM_REG_KEY} ""
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
581 StrCmp $R0 $INSTDIR 0 try_hkcu
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
582 ; HKLM install path matches our INSTDIR.. so uninstall
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
583 DeleteRegKey HKLM ${GAIM_REG_KEY}
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
584 DeleteRegKey HKLM "${GAIM_UNINSTALL_KEY}"
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
585 DeleteRegKey HKLM "${HKLM_APP_PATHS_KEY}"
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
586 ; Sets start menu and desktop scope to all users..
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
587 SetShellVarContext "all"
4126
e8f2fdf78662 [gaim-migrate @ 4343]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 3989
diff changeset
588
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
589 cont_uninstall:
6090
44930abebe0d [gaim-migrate @ 6549]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5931
diff changeset
590 ; The WinPrefs plugin may have left this behind..
44930abebe0d [gaim-migrate @ 6549]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5931
diff changeset
591 DeleteRegValue HKCU "${GAIM_STARTUP_RUN_KEY}" "Gaim"
44930abebe0d [gaim-migrate @ 6549]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5931
diff changeset
592 DeleteRegValue HKLM "${GAIM_STARTUP_RUN_KEY}" "Gaim"
6255
386d65dd7f0d [gaim-migrate @ 6751]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 6233
diff changeset
593 ; Remove Language preference info
7558
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
594 DeleteRegKey HKCU ${GAIM_REG_KEY} ;${MUI_LANGDLL_REGISTRY_ROOT} ${MUI_LANGDLL_REGISTRY_KEY}
6090
44930abebe0d [gaim-migrate @ 6549]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5931
diff changeset
595
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
596 RMDir /r "$INSTDIR\locale"
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
597 RMDir /r "$INSTDIR\pixmaps"
6973
969474e79e98 [gaim-migrate @ 7525]
uid99490
parents: 6951
diff changeset
598 RMDir /r "$INSTDIR\perlmod"
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
599 Delete "$INSTDIR\plugins\autorecon.dll"
7352
af0e0b4d0c32 [gaim-migrate @ 7943]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7215
diff changeset
600 Delete "$INSTDIR\plugins\docklet.dll"
9565
c60809a33460 [gaim-migrate @ 10404]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 9561
diff changeset
601 Delete "$INSTDIR\plugins\extplacement.dll"
6476
1325c207d159 [gaim-migrate @ 6987]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 6447
diff changeset
602 Delete "$INSTDIR\plugins\history.dll"
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
603 Delete "$INSTDIR\plugins\iconaway.dll"
6476
1325c207d159 [gaim-migrate @ 6987]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 6447
diff changeset
604 Delete "$INSTDIR\plugins\idle.dll"
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
605 Delete "$INSTDIR\plugins\libgg.dll"
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
606 Delete "$INSTDIR\plugins\libirc.dll"
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
607 Delete "$INSTDIR\plugins\libjabber.dll"
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
608 Delete "$INSTDIR\plugins\libmsn.dll"
9570
24f84b7ffe8e [gaim-migrate @ 10413]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 9565
diff changeset
609 Delete "$INSTDIR\plugins\libnapster.dll"
9139
89a1cfea74e5 [gaim-migrate @ 9923]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 9115
diff changeset
610 Delete "$INSTDIR\plugins\libnovell.dll"
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
611 Delete "$INSTDIR\plugins\liboscar.dll"
11103
d0baed7a3d10 [gaim-migrate @ 13143]
Richard Laager <rlaager@wiktel.com>
parents: 11090
diff changeset
612 Delete "$INSTDIR\plugins\libsametime.dll"
d0baed7a3d10 [gaim-migrate @ 13143]
Richard Laager <rlaager@wiktel.com>
parents: 11090
diff changeset
613 Delete "$INSTDIR\plugins\libsilc.dll"
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
614 Delete "$INSTDIR\plugins\libtoc.dll"
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
615 Delete "$INSTDIR\plugins\libyahoo.dll"
7352
af0e0b4d0c32 [gaim-migrate @ 7943]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7215
diff changeset
616 Delete "$INSTDIR\plugins\perl.dll"
7600
f48c6e4db102 [gaim-migrate @ 8222]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7575
diff changeset
617 Delete "$INSTDIR\plugins\relnot.dll"
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
618 Delete "$INSTDIR\plugins\spellchk.dll"
7352
af0e0b4d0c32 [gaim-migrate @ 7943]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7215
diff changeset
619 Delete "$INSTDIR\plugins\ssl-nss.dll"
af0e0b4d0c32 [gaim-migrate @ 7943]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7215
diff changeset
620 Delete "$INSTDIR\plugins\ssl.dll"
6476
1325c207d159 [gaim-migrate @ 6987]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 6447
diff changeset
621 Delete "$INSTDIR\plugins\statenotify.dll"
8099
40163e984818 [gaim-migrate @ 8799]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7924
diff changeset
622 Delete "$INSTDIR\plugins\tcl.dll"
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
623 Delete "$INSTDIR\plugins\ticker.dll"
6476
1325c207d159 [gaim-migrate @ 6987]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 6447
diff changeset
624 Delete "$INSTDIR\plugins\timestamp.dll"
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
625 Delete "$INSTDIR\plugins\win2ktrans.dll"
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
626 Delete "$INSTDIR\plugins\winprefs.dll"
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
627 RMDir "$INSTDIR\plugins"
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
628 Delete "$INSTDIR\sounds\gaim\arrive.wav"
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
629 Delete "$INSTDIR\sounds\gaim\leave.wav"
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
630 Delete "$INSTDIR\sounds\gaim\receive.wav"
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
631 Delete "$INSTDIR\sounds\gaim\redalert.wav"
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
632 Delete "$INSTDIR\sounds\gaim\send.wav"
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
633 RMDir "$INSTDIR\sounds\gaim"
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
634 RMDir "$INSTDIR\sounds"
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
635 Delete "$INSTDIR\gaim.dll"
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
636 Delete "$INSTDIR\gaim.exe"
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
637 Delete "$INSTDIR\idletrack.dll"
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
638 Delete "$INSTDIR\libgtkspell.dll"
6973
969474e79e98 [gaim-migrate @ 7525]
uid99490
parents: 6951
diff changeset
639 Delete "$INSTDIR\nspr4.dll"
969474e79e98 [gaim-migrate @ 7525]
uid99490
parents: 6951
diff changeset
640 Delete "$INSTDIR\nss3.dll"
969474e79e98 [gaim-migrate @ 7525]
uid99490
parents: 6951
diff changeset
641 Delete "$INSTDIR\nssckbi.dll"
969474e79e98 [gaim-migrate @ 7525]
uid99490
parents: 6951
diff changeset
642 Delete "$INSTDIR\plc4.dll"
969474e79e98 [gaim-migrate @ 7525]
uid99490
parents: 6951
diff changeset
643 Delete "$INSTDIR\plds4.dll"
10920
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
644 Delete "$INSTDIR\silc.dll"
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
645 Delete "$INSTDIR\silcclient.dll"
6973
969474e79e98 [gaim-migrate @ 7525]
uid99490
parents: 6951
diff changeset
646 Delete "$INSTDIR\softokn3.dll"
969474e79e98 [gaim-migrate @ 7525]
uid99490
parents: 6951
diff changeset
647 Delete "$INSTDIR\ssl3.dll"
969474e79e98 [gaim-migrate @ 7525]
uid99490
parents: 6951
diff changeset
648 Delete "$INSTDIR\${GAIM_UNINST_EXE}"
969474e79e98 [gaim-migrate @ 7525]
uid99490
parents: 6951
diff changeset
649 !ifdef DEBUG
969474e79e98 [gaim-migrate @ 7525]
uid99490
parents: 6951
diff changeset
650 Delete "$INSTDIR\exchndl.dll"
969474e79e98 [gaim-migrate @ 7525]
uid99490
parents: 6951
diff changeset
651 !endif
969474e79e98 [gaim-migrate @ 7525]
uid99490
parents: 6951
diff changeset
652
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
653 ;Try to remove Gaim install dir .. if empty
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
654 RMDir "$INSTDIR"
3853
eddcb3a8c74e [gaim-migrate @ 4005]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 3849
diff changeset
655
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
656 ; Shortcuts..
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
657 RMDir /r "$SMPROGRAMS\Gaim"
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
658 Delete "$DESKTOP\Gaim.lnk"
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
659
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
660 Goto done
4897
65a0a360e8c4 [gaim-migrate @ 5229]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 4857
diff changeset
661
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
662 cant_uninstall:
7558
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
663 IfSilent skip_mb
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
664 MessageBox MB_OK $(un.GAIM_UNINSTALL_ERROR_1) IDOK
7558
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
665 skip_mb:
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
666 Quit
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
667
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
668 no_rights:
7558
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
669 IfSilent skip_mb1
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
670 MessageBox MB_OK $(un.GAIM_UNINSTALL_ERROR_2) IDOK
7558
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
671 skip_mb1:
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
672 Quit
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
673
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
674 done:
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
675 SectionEnd ; end of uninstall section
3853
eddcb3a8c74e [gaim-migrate @ 4005]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 3849
diff changeset
676
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
677 ;--------------------------------
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
678 ;Descriptions
7558
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
679 !insertmacro MUI_FUNCTION_DESCRIPTION_BEGIN
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
680 !insertmacro MUI_DESCRIPTION_TEXT ${SecGaim} \
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
681 $(GAIM_SECTION_DESCRIPTION)
5383
e44333671363 [gaim-migrate @ 5759]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5332
diff changeset
682 !ifdef WITH_GTK
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
683 !insertmacro MUI_DESCRIPTION_TEXT ${SecGtk} \
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
684 $(GTK_SECTION_DESCRIPTION)
5383
e44333671363 [gaim-migrate @ 5759]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5332
diff changeset
685 !endif
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
686 !insertmacro MUI_DESCRIPTION_TEXT ${SecGtkThemes} \
10920
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
687 $(GTK_THEMES_SECTION_DESCRIPTION)
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
688 !insertmacro MUI_DESCRIPTION_TEXT ${SecGtkNone} \
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
689 $(GTK_NO_THEME_DESC)
7352
af0e0b4d0c32 [gaim-migrate @ 7943]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7215
diff changeset
690 !insertmacro MUI_DESCRIPTION_TEXT ${SecGtkWimp} \
af0e0b4d0c32 [gaim-migrate @ 7943]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7215
diff changeset
691 $(GTK_WIMP_THEME_DESC)
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
692 !insertmacro MUI_DESCRIPTION_TEXT ${SecGtkBluecurve} \
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
693 $(GTK_BLUECURVE_THEME_DESC)
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
694 !insertmacro MUI_DESCRIPTION_TEXT ${SecGtkLighthouseblue} \
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
695 $(GTK_LIGHTHOUSEBLUE_THEME_DESC)
10920
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
696
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
697
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
698 !insertmacro MUI_DESCRIPTION_TEXT ${SecShortcuts} \
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
699 $(GAIM_SHORTCUTS_SECTION_DESCRIPTION)
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
700 !insertmacro MUI_DESCRIPTION_TEXT ${SecDesktopShortcut} \
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
701 $(GAIM_DESKTOP_SHORTCUT_DESC)
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
702 !insertmacro MUI_DESCRIPTION_TEXT ${SecStartMenuShortcut} \
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
703 $(GAIM_STARTMENU_SHORTCUT_DESC)
7558
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
704 !insertmacro MUI_FUNCTION_DESCRIPTION_END
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
705
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
706 ;--------------------------------
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
707 ;Functions
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
708
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
709 ;
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
710 ; Usage:
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
711 ;
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
712 ; Call CanWeInstallATheme
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
713 ; Pop $R0
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
714 ;
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
715 ; Return:
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
716 ; "" - If no
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
717 ; "root path of GTK+ installation" - if yes
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
718 ;
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
719 Function CanWeInstallATheme
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
720 Push $1
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
721 Push $0
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
722
7558
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
723 ; Set default.. no rights
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
724 StrCpy $1 ""
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
725
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
726 Call CheckUserInstallRights
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
727 Pop $0
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
728
7558
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
729 ; If no rights check if gtk was installed to gaim dir..
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
730 StrCmp $0 "NONE" 0 themes_cont
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
731 StrCmp $GTK_FOLDER $INSTDIR 0 no_rights
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
732 StrCpy $1 $INSTDIR
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
733 Goto done
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
734 themes_cont:
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
735
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
736 StrCmp $0 "HKCU" hkcu hklm
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
737
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
738 hkcu:
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
739 ReadRegStr $1 HKCU ${GTK_REG_KEY} "Path"
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
740 StrCmp $1 "" no_rights done
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
741
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
742 hklm:
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
743 ReadRegStr $1 HKLM ${GTK_REG_KEY} "Path"
7558
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
744 Goto done
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
745
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
746 no_rights:
7558
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
747 IfSilent skip_mb
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
748 MessageBox MB_OK $(GTK_NO_THEME_INSTALL_RIGHTS) IDOK
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
749 skip_mb:
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
750 StrCpy $1 ""
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
751
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
752 done:
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
753 Pop $0
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
754 Exch $1
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
755 FunctionEnd
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
756
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
757
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
758 Function CheckUserInstallRights
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
759 ClearErrors
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
760 UserInfo::GetName
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
761 IfErrors Win9x
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
762 Pop $0
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
763 UserInfo::GetAccountType
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
764 Pop $1
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
765
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
766 StrCmp $1 "Admin" 0 +3
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
767 StrCpy $1 "HKLM"
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
768 Goto done
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
769 StrCmp $1 "Power" 0 +3
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
770 StrCpy $1 "HKLM"
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
771 Goto done
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
772 StrCmp $1 "User" 0 +3
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
773 StrCpy $1 "HKCU"
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
774 Goto done
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
775 StrCmp $1 "Guest" 0 +3
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
776 StrCpy $1 "NONE"
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
777 Goto done
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
778 ; Unknown error
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
779 StrCpy $1 "NONE"
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
780 Goto done
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
781
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
782 Win9x:
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
783 StrCpy $1 "HKLM"
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
784
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
785 done:
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
786 Push $1
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
787 FunctionEnd
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
788
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
789 Function un.CheckUserInstallRights
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
790 ClearErrors
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
791 UserInfo::GetName
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
792 IfErrors Win9x
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
793 Pop $0
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
794 UserInfo::GetAccountType
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
795 Pop $1
7558
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
796
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
797 StrCmp $1 "Admin" 0 +3
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
798 StrCpy $1 "HKLM"
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
799 Goto done
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
800 StrCmp $1 "Power" 0 +3
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
801 StrCpy $1 "HKLM"
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
802 Goto done
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
803 StrCmp $1 "User" 0 +3
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
804 StrCpy $1 "HKCU"
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
805 Goto done
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
806 StrCmp $1 "Guest" 0 +3
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
807 StrCpy $1 "NONE"
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
808 Goto done
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
809 ; Unknown error
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
810 StrCpy $1 "NONE"
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
811 Goto done
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
812
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
813 Win9x:
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
814 StrCpy $1 "HKLM"
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
815
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
816 done:
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
817 Push $1
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
818 FunctionEnd
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
819
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
820 ;
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
821 ; Usage:
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
822 ; Push $0 ; Path string
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
823 ; Call VerifyDir
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
824 ; Pop $0 ; 0 - Bad path 1 - Good path
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
825 ;
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
826 Function VerifyDir
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
827 Pop $0
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
828 Loop:
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
829 IfFileExists $0 dir_exists
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
830 StrCpy $1 $0 ; save last
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
831 Push $0
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
832 Call GetParent
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
833 Pop $0
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
834 StrLen $2 $0
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
835 ; IfFileExists "C:" on xp returns true and on win2k returns false
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
836 ; So we're done in such a case..
9960
faf9ccf3e0d5 [gaim-migrate @ 10868]
Luke Schierer <lschiere@pidgin.im>
parents: 9956
diff changeset
837 IntCmp $2 2 loop_done
faf9ccf3e0d5 [gaim-migrate @ 10868]
Luke Schierer <lschiere@pidgin.im>
parents: 9956
diff changeset
838 ; GetParent of "C:" returns ""
faf9ccf3e0d5 [gaim-migrate @ 10868]
Luke Schierer <lschiere@pidgin.im>
parents: 9956
diff changeset
839 IntCmp $2 0 loop_done
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
840 Goto Loop
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
841
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
842 loop_done:
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
843 StrCpy $1 "$0\GaImFooB"
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
844 ; Check if we can create dir on this drive..
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
845 ClearErrors
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
846 CreateDirectory $1
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
847 IfErrors DirBad DirGood
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
848
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
849 dir_exists:
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
850 ClearErrors
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
851 FileOpen $1 "$0\gaimfoo.bar" w
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
852 IfErrors PathBad PathGood
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
853
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
854 DirGood:
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
855 RMDir $1
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
856 Goto PathGood1
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
857
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
858 DirBad:
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
859 RMDir $1
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
860 Goto PathBad1
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
861
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
862 PathBad:
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
863 FileClose $1
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
864 Delete "$0\gaimfoo.bar"
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
865 PathBad1:
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
866 StrCpy $0 "0"
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
867 Push $0
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
868 Return
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
869
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
870 PathGood:
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
871 FileClose $1
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
872 Delete "$0\gaimfoo.bar"
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
873 PathGood1:
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
874 StrCpy $0 "1"
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
875 Push $0
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
876 FunctionEnd
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
877
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
878 Function .onVerifyInstDir
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
879 Push $INSTDIR
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
880 Call VerifyDir
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
881 Pop $0
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
882 StrCmp $0 "0" 0 dir_good
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
883 Abort
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
884 dir_good:
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
885 FunctionEnd
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
886
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
887 ; GetParent
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
888 ; input, top of stack (e.g. C:\Program Files\Poop)
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
889 ; output, top of stack (replaces, with e.g. C:\Program Files)
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
890 ; modifies no other variables.
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
891 ;
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
892 ; Usage:
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
893 ; Push "C:\Program Files\Directory\Whatever"
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
894 ; Call GetParent
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
895 ; Pop $R0
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
896 ; ; at this point $R0 will equal "C:\Program Files\Directory"
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
897 Function GetParent
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
898 Exch $0 ; old $0 is on top of stack
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
899 Push $1
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
900 Push $2
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
901 StrCpy $1 -1
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
902 loop:
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
903 StrCpy $2 $0 1 $1
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
904 StrCmp $2 "" exit
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
905 StrCmp $2 "\" exit
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
906 IntOp $1 $1 - 1
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
907 Goto loop
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
908 exit:
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
909 StrCpy $0 $0 $1
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
910 Pop $2
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
911 Pop $1
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
912 Exch $0 ; put $0 on top of stack, restore $0 to original value
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
913 FunctionEnd
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
914
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
915
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
916 ; CheckGtkVersion
9565
c60809a33460 [gaim-migrate @ 10404]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 9561
diff changeset
917 ; inputs: Push 2 GTK+ version strings to check. The major value needs to
c60809a33460 [gaim-migrate @ 10404]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 9561
diff changeset
918 ; be equal and the minor value needs to be greater or equal.
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
919 ;
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
920 ; Usage:
9565
c60809a33460 [gaim-migrate @ 10404]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 9561
diff changeset
921 ; Push "2.1.0" ; Refrence version
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
922 ; Push "2.2.1" ; Version to check
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
923 ; Call CheckGtkVersion
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
924 ; Pop $R0
9565
c60809a33460 [gaim-migrate @ 10404]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 9561
diff changeset
925 ; $R0 will now equal "1", because 2.2 is greater than 2.1
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
926 ;
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
927 Function CheckGtkVersion
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
928 ; Version we want to check
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
929 Pop $6
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
930 ; Reference version
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
931 Pop $8
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
932
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
933 ; Check that the string to check is at least 5 chars long (i.e. x.x.x)
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
934 StrLen $7 $6
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
935 IntCmp $7 5 0 bad_version
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
936
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
937 ; Major version check
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
938 StrCpy $7 $6 1
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
939 StrCpy $9 $8 1
9565
c60809a33460 [gaim-migrate @ 10404]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 9561
diff changeset
940 IntCmp $7 $9 check_minor bad_version bad_version
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
941
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
942 check_minor:
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
943 StrCpy $7 $6 1 2
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
944 StrCpy $9 $8 1 2
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
945 IntCmp $7 $9 good_version bad_version good_version
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
946
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
947 bad_version:
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
948 StrCpy $6 "0"
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
949 Push $6
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
950 Goto done
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
951
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
952 good_version:
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
953 StrCpy $6 "1"
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
954 Push $6
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
955 done:
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
956 FunctionEnd
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
957
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
958 ;
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
959 ; Usage:
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
960 ; Call DoWeNeedGtk
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
961 ; First Pop:
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
962 ; 0 - We have the correct version
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
963 ; Second Pop: Key where Version was found
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
964 ; 1 - We have an old version that needs to be upgraded
10814
364a2ef907ae [gaim-migrate @ 12468]
Luke Schierer <lschiere@pidgin.im>
parents: 10511
diff changeset
965 ; Second Pop: HKLM or HKCU depending on where GTK+ was found.
364a2ef907ae [gaim-migrate @ 12468]
Luke Schierer <lschiere@pidgin.im>
parents: 10511
diff changeset
966 ; 2 - We don't have GTK+ at all
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
967 ; Second Pop: "NONE, HKLM or HKCU" depending on our rights..
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
968 ;
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
969 Function DoWeNeedGtk
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
970 ; Logic should be:
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
971 ; - Check what user rights we have (HKLM or HKCU)
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
972 ; - If HKLM rights..
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
973 ; - Only check HKLM key for GTK+
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
974 ; - If installed to HKLM, check it and return.
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
975 ; - If HKCU rights..
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
976 ; - First check HKCU key for GTK+
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
977 ; - if good or bad exists stop and ret.
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
978 ; - If no hkcu gtk+ install, check HKLM
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
979 ; - If HKLM ver exists but old, return as if no ver exits.
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
980 ; - If no rights
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
981 ; - Check HKLM
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
982
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
983 Call CheckUserInstallRights
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
984 Pop $3
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
985 StrCmp $3 "HKLM" check_hklm
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
986 StrCmp $3 "HKCU" check_hkcu check_hklm
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
987 check_hkcu:
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
988 ReadRegStr $0 HKCU ${GTK_REG_KEY} "Version"
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
989 StrCpy $5 "HKCU"
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
990 StrCmp $0 "" check_hklm have_gtk
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
991
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
992 check_hklm:
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
993 ReadRegStr $0 HKLM ${GTK_REG_KEY} "Version"
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
994 StrCpy $5 "HKLM"
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
995 StrCmp $0 "" no_gtk have_gtk
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
996
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
997
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
998 have_gtk:
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
999 ; GTK+ is already installed.. check version.
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1000 StrCpy $1 ${GTK_VERSION} ; Minimum GTK+ version needed
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1001 Push $1
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1002 Push $0
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1003 Call CheckGtkVersion
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1004 Pop $2
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1005 StrCmp $2 "1" good_version bad_version
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1006 bad_version:
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1007 ; Bad version. If hklm ver and we have hkcu or no rights.. return no gtk
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1008 StrCmp $3 "NONE" no_gtk ; if no rights.. can't upgrade
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1009 StrCmp $3 "HKCU" 0 upgrade_gtk ; if HKLM can upgrade..
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1010 StrCmp $5 "HKLM" no_gtk upgrade_gtk ; have hkcu rights.. if found hklm ver can't upgrade..
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1011
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1012 upgrade_gtk:
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1013 StrCpy $2 "1"
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1014 Push $5
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1015 Push $2
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1016 Goto done
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1017
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1018 good_version:
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1019 StrCmp $5 "HKLM" have_hklm_gtk have_hkcu_gtk
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1020 have_hkcu_gtk:
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1021 ; Have HKCU version
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1022 ReadRegStr $4 HKCU ${GTK_REG_KEY} "Path"
6422
468bbb5fbc29 [gaim-migrate @ 6930]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 6300
diff changeset
1023 Goto good_version_cont
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1024
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1025 have_hklm_gtk:
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1026 ReadRegStr $4 HKLM ${GTK_REG_KEY} "Path"
6422
468bbb5fbc29 [gaim-migrate @ 6930]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 6300
diff changeset
1027 Goto good_version_cont
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1028
6422
468bbb5fbc29 [gaim-migrate @ 6930]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 6300
diff changeset
1029 good_version_cont:
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1030 StrCpy $2 "0"
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1031 Push $4 ; The path to existing GTK+
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1032 Push $2
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1033 Goto done
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1034
6422
468bbb5fbc29 [gaim-migrate @ 6930]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 6300
diff changeset
1035 no_gtk:
468bbb5fbc29 [gaim-migrate @ 6930]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 6300
diff changeset
1036 StrCpy $2 "2"
468bbb5fbc29 [gaim-migrate @ 6930]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 6300
diff changeset
1037 Push $3 ; our rights
468bbb5fbc29 [gaim-migrate @ 6930]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 6300
diff changeset
1038 Push $2
468bbb5fbc29 [gaim-migrate @ 6930]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 6300
diff changeset
1039 Goto done
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1040
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1041 done:
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1042 FunctionEnd
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1043
10212
08251403c871 [gaim-migrate @ 11336]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 10137
diff changeset
1044 Function RunCheck
08251403c871 [gaim-migrate @ 11336]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 10137
diff changeset
1045 System::Call 'kernel32::OpenMutex(i 2031617, b 0, t "gaim_is_running") i .R0'
08251403c871 [gaim-migrate @ 11336]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 10137
diff changeset
1046 IntCmp $R0 0 done
08251403c871 [gaim-migrate @ 11336]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 10137
diff changeset
1047 MessageBox MB_OK|MB_ICONEXCLAMATION $(GAIM_IS_RUNNING) IDOK
08251403c871 [gaim-migrate @ 11336]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 10137
diff changeset
1048 Abort
08251403c871 [gaim-migrate @ 11336]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 10137
diff changeset
1049 done:
08251403c871 [gaim-migrate @ 11336]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 10137
diff changeset
1050 FunctionEnd
08251403c871 [gaim-migrate @ 11336]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 10137
diff changeset
1051
08251403c871 [gaim-migrate @ 11336]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 10137
diff changeset
1052 Function un.RunCheck
08251403c871 [gaim-migrate @ 11336]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 10137
diff changeset
1053 System::Call 'kernel32::OpenMutex(i 2031617, b 0, t "gaim_is_running") i .R0'
08251403c871 [gaim-migrate @ 11336]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 10137
diff changeset
1054 IntCmp $R0 0 done
08251403c871 [gaim-migrate @ 11336]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 10137
diff changeset
1055 MessageBox MB_OK|MB_ICONEXCLAMATION $(GAIM_IS_RUNNING) IDOK
08251403c871 [gaim-migrate @ 11336]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 10137
diff changeset
1056 Abort
08251403c871 [gaim-migrate @ 11336]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 10137
diff changeset
1057 done:
08251403c871 [gaim-migrate @ 11336]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 10137
diff changeset
1058 FunctionEnd
08251403c871 [gaim-migrate @ 11336]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 10137
diff changeset
1059
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1060 Function .onInit
10212
08251403c871 [gaim-migrate @ 11336]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 10137
diff changeset
1061 System::Call 'kernel32::CreateMutexA(i 0, i 0, t "gaim_installer_running") i .r1 ?e'
08251403c871 [gaim-migrate @ 11336]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 10137
diff changeset
1062 Pop $R0
08251403c871 [gaim-migrate @ 11336]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 10137
diff changeset
1063 StrCmp $R0 0 +3
08251403c871 [gaim-migrate @ 11336]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 10137
diff changeset
1064 MessageBox MB_OK|MB_ICONEXCLAMATION $(INSTALLER_IS_RUNNING)
08251403c871 [gaim-migrate @ 11336]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 10137
diff changeset
1065 Abort
08251403c871 [gaim-migrate @ 11336]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 10137
diff changeset
1066 Call RunCheck
7558
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1067 StrCpy $name "Gaim ${GAIM_VERSION}"
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1068 StrCpy $GTK_THEME_SEL ${SecGtkWimp}
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1069 StrCpy $ISSILENT "/NOUI"
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1070
10814
364a2ef907ae [gaim-migrate @ 12468]
Luke Schierer <lschiere@pidgin.im>
parents: 10511
diff changeset
1071 ; GTK+ installer has two silent states.. one with Message boxes, one without
7558
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1072 ; If gaim installer was run silently, we want to supress gtk installer msg boxes.
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1073 IfSilent 0 set_gtk_normal
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1074 StrCpy $ISSILENT "/S"
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1075 set_gtk_normal:
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1076
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1077 Call ParseParameters
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1078
7600
f48c6e4db102 [gaim-migrate @ 8222]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7575
diff changeset
1079 ; Select Language
f48c6e4db102 [gaim-migrate @ 8222]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7575
diff changeset
1080 IntCmp $LANG_IS_SET 1 skip_lang
f48c6e4db102 [gaim-migrate @ 8222]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7575
diff changeset
1081 ; Display Language selection dialog
f48c6e4db102 [gaim-migrate @ 8222]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7575
diff changeset
1082 !insertmacro MUI_LANGDLL_DISPLAY
f48c6e4db102 [gaim-migrate @ 8222]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7575
diff changeset
1083 skip_lang:
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1084
7558
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1085 ; If install path was set on the command, use it.
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1086 StrCmp $INSTDIR "" 0 instdir_done
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1087
10511
83736fc2ea50 [gaim-migrate @ 11809]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10212
diff changeset
1088 ; If gaim is currently intalled, we should default to where it is currently installed
83736fc2ea50 [gaim-migrate @ 11809]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10212
diff changeset
1089 ClearErrors
83736fc2ea50 [gaim-migrate @ 11809]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10212
diff changeset
1090 ReadRegStr $INSTDIR HKCU "${GAIM_REG_KEY}" ""
83736fc2ea50 [gaim-migrate @ 11809]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10212
diff changeset
1091 IfErrors +2
83736fc2ea50 [gaim-migrate @ 11809]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10212
diff changeset
1092 StrCmp $INSTDIR "" 0 instdir_done
83736fc2ea50 [gaim-migrate @ 11809]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10212
diff changeset
1093 ReadRegStr $INSTDIR HKLM "${GAIM_REG_KEY}" ""
83736fc2ea50 [gaim-migrate @ 11809]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10212
diff changeset
1094 IfErrors +2
83736fc2ea50 [gaim-migrate @ 11809]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10212
diff changeset
1095 StrCmp $INSTDIR "" 0 instdir_done
83736fc2ea50 [gaim-migrate @ 11809]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10212
diff changeset
1096
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1097 Call CheckUserInstallRights
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1098 Pop $0
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1099
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1100 StrCmp $0 "HKLM" 0 user_dir
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1101 StrCpy $INSTDIR "$PROGRAMFILES\Gaim"
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1102 Goto instdir_done
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1103 user_dir:
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1104 StrCpy $2 "$SMPROGRAMS"
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1105 Push $2
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1106 Call GetParent
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1107 Call GetParent
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1108 Pop $2
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1109 StrCpy $INSTDIR "$2\Gaim"
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1110
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1111 instdir_done:
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1112
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1113 FunctionEnd
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1114
6255
386d65dd7f0d [gaim-migrate @ 6751]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 6233
diff changeset
1115 Function un.onInit
10212
08251403c871 [gaim-migrate @ 11336]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 10137
diff changeset
1116 Call un.RunCheck
10137
94167af56ace [gaim-migrate @ 11206]
Mark Doliner <mark@kingant.net>
parents: 10095
diff changeset
1117 StrCpy $name "Gaim ${GAIM_VERSION}"
6255
386d65dd7f0d [gaim-migrate @ 6751]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 6233
diff changeset
1118
386d65dd7f0d [gaim-migrate @ 6751]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 6233
diff changeset
1119 ; Get stored language prefrence
7558
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1120 ReadRegStr $LANGUAGE HKCU ${GAIM_REG_KEY} "${GAIM_REG_LANG}"
6255
386d65dd7f0d [gaim-migrate @ 6751]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 6233
diff changeset
1121
386d65dd7f0d [gaim-migrate @ 6751]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 6233
diff changeset
1122 FunctionEnd
6233
0c64ba470632 [gaim-migrate @ 6726]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 6159
diff changeset
1123
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1124 Function .onSelChange
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1125 Push $0
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1126 Push $2
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1127
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1128 StrCpy $2 ${SF_SELECTED}
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1129 SectionGetFlags ${SecGtkNone} $0
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1130 IntOp $2 $2 & $0
7352
af0e0b4d0c32 [gaim-migrate @ 7943]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7215
diff changeset
1131 SectionGetFlags ${SecGtkWimp} $0
af0e0b4d0c32 [gaim-migrate @ 7943]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7215
diff changeset
1132 IntOp $2 $2 & $0
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1133 SectionGetFlags ${SecGtkBluecurve} $0
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1134 IntOp $2 $2 & $0
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1135 SectionGetFlags ${SecGtkLighthouseblue} $0
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1136 IntOp $2 $2 & $0
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1137 StrCmp $2 0 skip
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1138 SectionSetFlags ${SecGtkNone} 0
7352
af0e0b4d0c32 [gaim-migrate @ 7943]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7215
diff changeset
1139 SectionSetFlags ${SecGtkWimp} 0
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1140 SectionSetFlags ${SecGtkBluecurve} 0
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1141 SectionSetFlags ${SecGtkLighthouseblue} 0
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1142 skip:
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1143
7558
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1144 !insertmacro UnselectSection $GTK_THEME_SEL
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1145
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1146 ; Remember old selection
7558
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1147 StrCpy $2 $GTK_THEME_SEL
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1148
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1149 ; Now go through and see who is checked..
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1150 SectionGetFlags ${SecGtkNone} $0
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1151 IntOp $0 $0 & ${SF_SELECTED}
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1152 IntCmp $0 ${SF_SELECTED} 0 +2 +2
7558
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1153 StrCpy $GTK_THEME_SEL ${SecGtkNone}
7352
af0e0b4d0c32 [gaim-migrate @ 7943]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7215
diff changeset
1154 SectionGetFlags ${SecGtkWimp} $0
af0e0b4d0c32 [gaim-migrate @ 7943]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7215
diff changeset
1155 IntOp $0 $0 & ${SF_SELECTED}
af0e0b4d0c32 [gaim-migrate @ 7943]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7215
diff changeset
1156 IntCmp $0 ${SF_SELECTED} 0 +2 +2
7558
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1157 StrCpy $GTK_THEME_SEL ${SecGtkWimp}
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1158 SectionGetFlags ${SecGtkBluecurve} $0
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1159 IntOp $0 $0 & ${SF_SELECTED}
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1160 IntCmp $0 ${SF_SELECTED} 0 +2 +2
7558
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1161 StrCpy $GTK_THEME_SEL ${SecGtkBluecurve}
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1162 SectionGetFlags ${SecGtkLighthouseblue} $0
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1163 IntOp $0 $0 & ${SF_SELECTED}
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1164 IntCmp $0 ${SF_SELECTED} 0 +2 +2
7558
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1165 StrCpy $GTK_THEME_SEL ${SecGtkLighthouseblue}
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1166
7558
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1167 StrCmp $2 $GTK_THEME_SEL 0 +2 ; selection hasn't changed
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1168 !insertmacro SelectSection $GTK_THEME_SEL
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1169
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1170 Pop $2
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1171 Pop $0
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1172 FunctionEnd
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1173
7558
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1174 ; Page enter and exit functions..
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1175
7600
f48c6e4db102 [gaim-migrate @ 8222]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7575
diff changeset
1176 Function preWelcomePage
f48c6e4db102 [gaim-migrate @ 8222]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7575
diff changeset
1177 ; If this installer dosn't have GTK, check whether we need it.
f48c6e4db102 [gaim-migrate @ 8222]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7575
diff changeset
1178 ; We do this here an not in .onInit because language change in
f48c6e4db102 [gaim-migrate @ 8222]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7575
diff changeset
1179 ; .onInit doesn't take effect until it is finished.
f48c6e4db102 [gaim-migrate @ 8222]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7575
diff changeset
1180 !ifndef WITH_GTK
f48c6e4db102 [gaim-migrate @ 8222]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7575
diff changeset
1181 Call DoWeNeedGtk
f48c6e4db102 [gaim-migrate @ 8222]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7575
diff changeset
1182 Pop $0
f48c6e4db102 [gaim-migrate @ 8222]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7575
diff changeset
1183 Pop $GTK_FOLDER
f48c6e4db102 [gaim-migrate @ 8222]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7575
diff changeset
1184
f48c6e4db102 [gaim-migrate @ 8222]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7575
diff changeset
1185 StrCmp $0 "0" have_gtk need_gtk
f48c6e4db102 [gaim-migrate @ 8222]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7575
diff changeset
1186 need_gtk:
f48c6e4db102 [gaim-migrate @ 8222]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7575
diff changeset
1187 IfSilent skip_mb
f48c6e4db102 [gaim-migrate @ 8222]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7575
diff changeset
1188 MessageBox MB_OK $(GTK_INSTALLER_NEEDED) IDOK
f48c6e4db102 [gaim-migrate @ 8222]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7575
diff changeset
1189 skip_mb:
f48c6e4db102 [gaim-migrate @ 8222]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7575
diff changeset
1190 Quit
f48c6e4db102 [gaim-migrate @ 8222]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7575
diff changeset
1191 have_gtk:
f48c6e4db102 [gaim-migrate @ 8222]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7575
diff changeset
1192 !endif
f48c6e4db102 [gaim-migrate @ 8222]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7575
diff changeset
1193 FunctionEnd
f48c6e4db102 [gaim-migrate @ 8222]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7575
diff changeset
1194
7572
6300424eafbf [gaim-migrate @ 8188]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7558
diff changeset
1195 !ifdef WITH_GTK
7558
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1196 Function preGtkDirPage
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1197 Call DoWeNeedGtk
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1198 Pop $0
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1199 Pop $1
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1200
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1201 StrCmp $0 "0" have_gtk
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1202 StrCmp $0 "1" upgrade_gtk
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1203 StrCmp $0 "2" no_gtk no_gtk
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1204
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1205 ; Don't show dir selector.. Upgrades are done to existing path..
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1206 have_gtk:
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1207 upgrade_gtk:
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1208 Abort
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1209
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1210 no_gtk:
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1211 StrCmp $1 "NONE" 0 no_gtk_cont
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1212 ; Got no install rights..
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1213 Abort
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1214 no_gtk_cont:
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1215 ; Suggest path..
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1216 StrCmp $1 "HKCU" 0 hklm1
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1217 StrCpy $2 "$SMPROGRAMS"
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1218 Push $2
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1219 Call GetParent
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1220 Call GetParent
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1221 Pop $2
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1222 StrCpy $2 "$2\GTK\2.0"
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1223 Goto got_path
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1224 hklm1:
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1225 StrCpy $2 "${GTK_DEFAULT_INSTALL_PATH}"
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1226
7558
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1227 got_path:
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1228 StrCpy $name "GTK+ ${GTK_VERSION}"
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1229 StrCpy $GTK_FOLDER $2
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1230 FunctionEnd
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1231
7558
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1232 Function postGtkDirPage
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1233 StrCpy $name "Gaim ${GAIM_VERSION}"
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1234 Push $GTK_FOLDER
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1235 Call VerifyDir
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1236 Pop $0
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1237 StrCmp $0 "0" 0 done
7558
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1238 IfSilent skip_mb
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1239 MessageBox MB_OK $(GTK_BAD_INSTALL_PATH) IDOK
7558
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1240 skip_mb:
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1241 Abort
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1242 done:
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1243 FunctionEnd
7572
6300424eafbf [gaim-migrate @ 8188]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7558
diff changeset
1244 !endif
5332
4d734dbc88dd [gaim-migrate @ 5705]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 5066
diff changeset
1245
7558
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1246 ; GetParameters
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1247 ; input, none
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1248 ; output, top of stack (replaces, with e.g. whatever)
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1249 ; modifies no other variables.
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1250
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1251 Function GetParameters
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1252
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1253 Push $R0
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1254 Push $R1
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1255 Push $R2
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1256 Push $R3
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1257
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1258 StrCpy $R2 1
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1259 StrLen $R3 $CMDLINE
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1260
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1261 ;Check for quote or space
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1262 StrCpy $R0 $CMDLINE $R2
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1263 StrCmp $R0 '"' 0 +3
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1264 StrCpy $R1 '"'
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1265 Goto loop
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1266 StrCpy $R1 " "
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1267
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1268 loop:
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1269 IntOp $R2 $R2 + 1
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1270 StrCpy $R0 $CMDLINE 1 $R2
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1271 StrCmp $R0 $R1 get
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1272 StrCmp $R2 $R3 get
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1273 Goto loop
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1274
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1275 get:
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1276 IntOp $R2 $R2 + 1
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1277 StrCpy $R0 $CMDLINE 1 $R2
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1278 StrCmp $R0 " " get
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1279 StrCpy $R0 $CMDLINE "" $R2
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1280
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1281 Pop $R3
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1282 Pop $R2
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1283 Pop $R1
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1284 Exch $R0
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1285
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1286 FunctionEnd
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1287
10920
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
1288 ; StrStr
7558
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1289 ; input, top of stack = string to search for
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1290 ; top of stack-1 = string to search in
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1291 ; output, top of stack (replaces with the portion of the string remaining)
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1292 ; modifies no other variables.
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1293 ;
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1294 ; Usage:
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1295 ; Push "this is a long ass string"
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1296 ; Push "ass"
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1297 ; Call StrStr
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1298 ; Pop $R0
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1299 ; ($R0 at this point is "ass string")
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1300
10920
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
1301 Function StrStr
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
1302 Exch $R1 ; st=haystack,old$R1, $R1=needle
7558
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1303 Exch ; st=old$R1,haystack
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1304 Exch $R2 ; st=old$R1,old$R2, $R2=haystack
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1305 Push $R3
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1306 Push $R4
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1307 Push $R5
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1308 StrLen $R3 $R1
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1309 StrCpy $R4 0
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1310 ; $R1=needle
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1311 ; $R2=haystack
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1312 ; $R3=len(needle)
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1313 ; $R4=cnt
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1314 ; $R5=tmp
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1315 loop:
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1316 StrCpy $R5 $R2 $R3 $R4
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1317 StrCmp $R5 $R1 done
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1318 StrCmp $R5 "" done
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1319 IntOp $R4 $R4 + 1
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1320 Goto loop
10920
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
1321 done:
7558
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1322 StrCpy $R1 $R2 "" $R4
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1323 Pop $R5
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1324 Pop $R4
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1325 Pop $R3
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1326 Pop $R2
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1327 Exch $R1
10920
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
1328 FunctionEnd
7558
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1329
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1330 ;
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1331 ; Parse the Command line
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1332 ;
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1333 ; Unattended install command line parameters
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1334 ; /L=Language e.g.: /L=1033
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1335 ;
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1336 Function ParseParameters
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1337 IntOp $LANG_IS_SET 0 + 0
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1338 Call GetParameters
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1339 Pop $R0
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1340 Push $R0
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1341 Push "L="
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1342 Call StrStr
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1343 Pop $R1
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1344 StrCmp $R1 "" next
10920
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
1345 StrCpy $R1 $R1 4 2 ; Strip first 2 chars of string
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
1346 StrCpy $LANGUAGE $R1
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
1347 IntOp $LANG_IS_SET 0 + 1
7558
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1348 next:
908343b14e70 [gaim-migrate @ 8172]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 7357
diff changeset
1349 FunctionEnd
10212
08251403c871 [gaim-migrate @ 11336]
Herman Bloggs <hermanator12002@yahoo.com>
parents: 10137
diff changeset
1350
10920
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
1351 ; GetWindowsVersion
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
1352 ;
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
1353 ; Based on Yazno's function, http://yazno.tripod.com/powerpimpit/
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
1354 ; Updated by Joost Verburg
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
1355 ;
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
1356 ; Returns on top of stack
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
1357 ;
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
1358 ; Windows Version (95, 98, ME, NT x.x, 2000, XP, 2003)
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
1359 ; or
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
1360 ; '' (Unknown Windows Version)
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
1361 ;
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
1362 ; Usage:
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
1363 ; Call GetWindowsVersion
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
1364 ; Pop $R0
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
1365 ;
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
1366 ; at this point $R0 is "NT 4.0" or whatnot
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
1367 Function GetWindowsVersion
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
1368
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
1369 Push $R0
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
1370 Push $R1
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
1371
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
1372 ReadRegStr $R0 HKLM \
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
1373 "SOFTWARE\Microsoft\Windows NT\CurrentVersion" CurrentVersion
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
1374
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
1375 IfErrors 0 lbl_winnt
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
1376
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
1377 ; we are not NT
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
1378 ReadRegStr $R0 HKLM \
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
1379 "SOFTWARE\Microsoft\Windows\CurrentVersion" VersionNumber
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
1380
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
1381 StrCpy $R1 $R0 1
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
1382 StrCmp $R1 '4' 0 lbl_error
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
1383
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
1384 StrCpy $R1 $R0 3
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
1385
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
1386 StrCmp $R1 '4.0' lbl_win32_95
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
1387 StrCmp $R1 '4.9' lbl_win32_ME lbl_win32_98
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
1388
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
1389 lbl_win32_95:
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
1390 StrCpy $R0 '95'
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
1391 Goto lbl_done
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
1392
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
1393 lbl_win32_98:
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
1394 StrCpy $R0 '98'
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
1395 Goto lbl_done
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
1396
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
1397 lbl_win32_ME:
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
1398 StrCpy $R0 'ME'
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
1399 Goto lbl_done
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
1400
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
1401 lbl_winnt:
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
1402 StrCpy $R1 $R0 1
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
1403
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
1404 StrCmp $R1 '3' lbl_winnt_x
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
1405 StrCmp $R1 '4' lbl_winnt_x
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
1406
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
1407 StrCpy $R1 $R0 3
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
1408
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
1409 StrCmp $R1 '5.0' lbl_winnt_2000
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
1410 StrCmp $R1 '5.1' lbl_winnt_XP
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
1411 StrCmp $R1 '5.2' lbl_winnt_2003 lbl_error
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
1412
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
1413 lbl_winnt_x:
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
1414 StrCpy $R0 "NT $R0" 6
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
1415 Goto lbl_done
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
1416
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
1417 lbl_winnt_2000:
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
1418 Strcpy $R0 '2000'
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
1419 Goto lbl_done
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
1420
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
1421 lbl_winnt_XP:
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
1422 Strcpy $R0 'XP'
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
1423 Goto lbl_done
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
1424
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
1425 lbl_winnt_2003:
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
1426 Strcpy $R0 '2003'
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
1427 Goto lbl_done
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
1428
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
1429 lbl_error:
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
1430 Strcpy $R0 ''
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
1431 lbl_done:
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
1432
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
1433 Pop $R1
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
1434 Exch $R0
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
1435 FunctionEnd
6a8440e9edba [gaim-migrate @ 12686]
Daniel Atallah <daniel.atallah@gmail.com>
parents: 10814
diff changeset
1436