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