[RAPPS]
[reactos.git] / reactos / base / applications / rapps / installed.c
1 /*
2 * PROJECT: ReactOS Applications Manager
3 * LICENSE: GPL - See COPYING in the top level directory
4 * FILE: base/applications/rapps/installed.c
5 * PURPOSE: Functions for working with installed applications
6 * PROGRAMMERS: Dmitry Chapyshev (dmitry@reactos.org)
7 */
8
9 #include "rapps.h"
10
11 BOOL
12 GetApplicationString(HKEY hKey, LPWSTR lpKeyName, LPWSTR lpString)
13 {
14 DWORD dwSize = MAX_PATH;
15
16 if (RegQueryValueExW(hKey,
17 lpKeyName,
18 NULL,
19 NULL,
20 (LPBYTE)lpString,
21 &dwSize) == ERROR_SUCCESS)
22 {
23 return TRUE;
24 }
25
26 (VOID)StringCchCopyW(lpString, MAX_PATH, L"---");
27
28 return FALSE;
29 }
30
31
32 BOOL
33 IsInstalledApplication(LPWSTR lpRegName, BOOL IsUserKey)
34 {
35 DWORD dwSize = MAX_PATH, dwType;
36 WCHAR szName[MAX_PATH];
37 WCHAR szDisplayName[MAX_PATH];
38 HKEY hKey, hSubKey;
39 INT ItemIndex = 0;
40
41 if (RegOpenKeyW(IsUserKey ? HKEY_CURRENT_USER : HKEY_LOCAL_MACHINE,
42 L"Software\\Microsoft\\Windows\\CurrentVersion\\Uninstall",
43 &hKey) != ERROR_SUCCESS)
44 {
45 return FALSE;
46 }
47
48 while (RegEnumKeyExW(hKey, ItemIndex, szName, &dwSize, NULL, NULL, NULL, NULL) == ERROR_SUCCESS)
49 {
50 if (RegOpenKeyW(hKey, szName, &hSubKey) == ERROR_SUCCESS)
51 {
52 dwType = REG_SZ;
53 dwSize = MAX_PATH;
54 if (RegQueryValueExW(hSubKey,
55 L"DisplayName",
56 NULL,
57 &dwType,
58 (LPBYTE)szDisplayName,
59 &dwSize) == ERROR_SUCCESS)
60 {
61 if (wcscmp(szDisplayName, lpRegName) == 0)
62 {
63 RegCloseKey(hSubKey);
64 RegCloseKey(hKey);
65 return TRUE;
66 }
67 }
68 }
69
70 RegCloseKey(hSubKey);
71 dwSize = MAX_PATH;
72 ItemIndex++;
73 }
74
75 RegCloseKey(hKey);
76 return FALSE;
77 }
78
79
80 BOOL
81 UninstallApplication(INT Index, BOOL bModify)
82 {
83 WCHAR szModify[] = L"ModifyPath";
84 WCHAR szUninstall[] = L"UninstallString";
85 WCHAR szPath[MAX_PATH];
86 WCHAR szAppName[MAX_STR_LEN];
87 DWORD dwType, dwSize;
88 INT ItemIndex;
89 LVITEM Item;
90 HKEY hKey;
91 PINSTALLED_INFO ItemInfo;
92
93 if (!IS_INSTALLED_ENUM(SelectedEnumType))
94 return FALSE;
95
96 if (Index == -1)
97 {
98 ItemIndex = (INT) SendMessageW(hListView, LVM_GETNEXTITEM, -1, LVNI_FOCUSED);
99 if (ItemIndex == -1)
100 return FALSE;
101 }
102 else
103 {
104 ItemIndex = Index;
105 }
106
107 ListView_GetItemText(hListView, ItemIndex, 0, szAppName, sizeof(szAppName) / sizeof(WCHAR));
108 WriteLogMessage(EVENTLOG_SUCCESS, MSG_SUCCESS_REMOVE, szAppName);
109
110 ZeroMemory(&Item, sizeof(LVITEM));
111
112 Item.mask = LVIF_PARAM;
113 Item.iItem = ItemIndex;
114 if (!ListView_GetItem(hListView, &Item))
115 return FALSE;
116
117 ItemInfo = (PINSTALLED_INFO)Item.lParam;
118 hKey = ItemInfo->hSubKey;
119
120 dwType = REG_SZ;
121 dwSize = MAX_PATH;
122 if (RegQueryValueExW(hKey,
123 bModify ? szModify : szUninstall,
124 NULL,
125 &dwType,
126 (LPBYTE)szPath,
127 &dwSize) != ERROR_SUCCESS)
128 {
129 return FALSE;
130 }
131
132 return StartProcess(szPath, TRUE);
133 }
134
135
136 BOOL
137 ShowInstalledAppInfo(INT Index)
138 {
139 WCHAR szText[MAX_PATH], szInfo[MAX_PATH];
140 PINSTALLED_INFO Info = ListViewGetlParam(Index);
141
142 if (!Info || !Info->hSubKey) return FALSE;
143
144 GetApplicationString(Info->hSubKey, L"DisplayName", szText);
145 NewRichEditText(szText, CFE_BOLD);
146
147 InsertRichEditText(L"\n", 0);
148
149 #define GET_INFO(a, b, c, d) \
150 if (GetApplicationString(Info->hSubKey, a, szInfo)) \
151 { \
152 LoadStringW(hInst, b, szText, sizeof(szText) / sizeof(WCHAR)); \
153 InsertRichEditText(szText, c); \
154 InsertRichEditText(szInfo, d); \
155 } \
156
157 GET_INFO(L"DisplayVersion", IDS_INFO_VERSION, CFE_BOLD, 0);
158 GET_INFO(L"Publisher", IDS_INFO_PUBLISHER, CFE_BOLD, 0);
159 GET_INFO(L"RegOwner", IDS_INFO_REGOWNER, CFE_BOLD, 0);
160 GET_INFO(L"ProductID", IDS_INFO_PRODUCTID, CFE_BOLD, 0);
161 GET_INFO(L"HelpLink", IDS_INFO_HELPLINK, CFE_BOLD, CFM_LINK);
162 GET_INFO(L"HelpTelephone", IDS_INFO_HELPPHONE, CFE_BOLD, 0);
163 GET_INFO(L"Readme", IDS_INFO_README, CFE_BOLD, 0);
164 GET_INFO(L"Contact", IDS_INFO_CONTACT, CFE_BOLD, 0);
165 GET_INFO(L"URLUpdateInfo", IDS_INFO_UPDATEINFO, CFE_BOLD, CFM_LINK);
166 GET_INFO(L"URLInfoAbout", IDS_INFO_INFOABOUT, CFE_BOLD, CFM_LINK);
167 GET_INFO(L"Comments", IDS_INFO_COMMENTS, CFE_BOLD, 0);
168 GET_INFO(L"InstallDate", IDS_INFO_INSTALLDATE, CFE_BOLD, 0);
169 GET_INFO(L"InstallLocation", IDS_INFO_INSTLOCATION, CFE_BOLD, 0);
170 GET_INFO(L"InstallSource", IDS_INFO_INSTALLSRC, CFE_BOLD, 0);
171 GET_INFO(L"UninstallString", IDS_INFO_UNINSTALLSTR, CFE_BOLD, 0);
172 GET_INFO(L"InstallSource", IDS_INFO_INSTALLSRC, CFE_BOLD, 0);
173 GET_INFO(L"ModifyPath", IDS_INFO_MODIFYPATH, CFE_BOLD, 0);
174
175 return TRUE;
176 }
177
178
179 VOID
180 RemoveAppFromRegistry(INT Index)
181 {
182 PINSTALLED_INFO Info;
183 WCHAR szFullName[MAX_PATH] = L"Software\\Microsoft\\Windows\\CurrentVersion\\Uninstall\\";
184 WCHAR szMsgText[MAX_STR_LEN], szMsgTitle[MAX_STR_LEN];
185 INT ItemIndex = SendMessage(hListView, LVM_GETNEXTITEM, -1, LVNI_FOCUSED);
186
187 if (!IS_INSTALLED_ENUM(SelectedEnumType))
188 return;
189
190 Info = ListViewGetlParam(Index);
191 if (!Info || !Info->hSubKey || (ItemIndex == -1)) return;
192
193 if (!LoadStringW(hInst, IDS_APP_REG_REMOVE, szMsgText, sizeof(szMsgText) / sizeof(WCHAR)) ||
194 !LoadStringW(hInst, IDS_INFORMATION, szMsgTitle, sizeof(szMsgTitle) / sizeof(WCHAR)))
195 return;
196
197 if (MessageBoxW(hMainWnd, szMsgText, szMsgTitle, MB_YESNO | MB_ICONQUESTION) == IDYES)
198 {
199 wcsncat(szFullName, Info->szKeyName, MAX_PATH - wcslen(szFullName));
200
201 if (RegDeleteKeyW(Info->hRootKey, szFullName) == ERROR_SUCCESS)
202 {
203 (VOID) ListView_DeleteItem(hListView, ItemIndex);
204 return;
205 }
206
207 if (!LoadStringW(hInst, IDS_UNABLE_TO_REMOVE, szMsgText, sizeof(szMsgText) / sizeof(WCHAR)))
208 return;
209
210 MessageBoxW(hMainWnd, szMsgText, NULL, MB_OK | MB_ICONERROR);
211 }
212 }
213
214
215 BOOL
216 EnumInstalledApplications(INT EnumType, BOOL IsUserKey, APPENUMPROC lpEnumProc)
217 {
218 DWORD dwSize = MAX_PATH, dwType, dwValue;
219 BOOL bIsSystemComponent, bIsUpdate;
220 WCHAR pszParentKeyName[MAX_PATH];
221 WCHAR pszDisplayName[MAX_PATH];
222 INSTALLED_INFO Info;
223 HKEY hKey;
224 LONG ItemIndex = 0;
225
226 Info.hRootKey = IsUserKey ? HKEY_CURRENT_USER : HKEY_LOCAL_MACHINE;
227
228 if (RegOpenKeyW(Info.hRootKey,
229 L"Software\\Microsoft\\Windows\\CurrentVersion\\Uninstall",
230 &hKey) != ERROR_SUCCESS)
231 {
232 return FALSE;
233 }
234
235 while (RegEnumKeyExW(hKey, ItemIndex, Info.szKeyName, &dwSize, NULL, NULL, NULL, NULL) == ERROR_SUCCESS)
236 {
237 if (RegOpenKeyW(hKey, Info.szKeyName, &Info.hSubKey) == ERROR_SUCCESS)
238 {
239 dwType = REG_DWORD;
240 dwSize = sizeof(DWORD);
241
242 if (RegQueryValueExW(Info.hSubKey,
243 L"SystemComponent",
244 NULL,
245 &dwType,
246 (LPBYTE)&dwValue,
247 &dwSize) == ERROR_SUCCESS)
248 {
249 bIsSystemComponent = (dwValue == 0x1);
250 }
251 else
252 {
253 bIsSystemComponent = FALSE;
254 }
255
256 dwType = REG_SZ;
257 dwSize = MAX_PATH;
258 bIsUpdate = (RegQueryValueExW(Info.hSubKey,
259 L"ParentKeyName",
260 NULL,
261 &dwType,
262 (LPBYTE)pszParentKeyName,
263 &dwSize) == ERROR_SUCCESS);
264
265 dwSize = MAX_PATH;
266 if (RegQueryValueExW(Info.hSubKey,
267 L"DisplayName",
268 NULL,
269 &dwType,
270 (LPBYTE)pszDisplayName,
271 &dwSize) == ERROR_SUCCESS)
272 {
273 if (EnumType < ENUM_ALL_COMPONENTS || EnumType > ENUM_UPDATES)
274 EnumType = ENUM_ALL_COMPONENTS;
275
276 if (!bIsSystemComponent)
277 {
278 if ((EnumType == ENUM_ALL_COMPONENTS) || /* All components */
279 ((EnumType == ENUM_APPLICATIONS) && (!bIsUpdate)) || /* Applications only */
280 ((EnumType == ENUM_UPDATES) && (bIsUpdate))) /* Updates only */
281 {
282 if (!lpEnumProc(ItemIndex, pszDisplayName, Info))
283 break;
284 }
285 }
286 }
287 }
288
289 dwSize = MAX_PATH;
290 ItemIndex++;
291 }
292
293 RegCloseKey(hKey);
294
295 return TRUE;
296 }